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numéro bénéficient, pour une grande part, du droit d'’au- 
teur. De ce fait, ils ne peuvent être imités, contrefaits, co- 
piés par quelque procédé que ce soit, même partiellement BANC D'ESSAI 
sans l’autorisation écrite de la Société SORACOM « de 
l’auteur concemé. Les opinions exprimées n’engagent que 
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ou scientifique mais non commercial. Ces réserves s'ap- : Ju 1339 
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CPC infos est édité par les Editions SORACOM, éditrice 
de PCompatibles Magazine, MEGAHERTZ Magazine & 
AM'STAR. RCS Rennes B 319 816 302. 

AMSTRAD est une marque déposée. 


CPC infos est une revue mensuel totalement indépendante 
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ZINES; 
LA REENGE 


Eh, oui les fanzines sont toujours aussi vivaces, la preuve : quand 
certains disparaissent, d’autres apparaissent pour perpétuer la tradition. 
Dans les pages ci-après vous trouverez des fanzines nouveaux (pour 
moi en tout cas), des «classiques» et des disparus. Pourquoi refaire 

ce qui a déjà été fait ? Eh bien parce que tout le 

monde ne connait pas le phéno- : ss ÉEGLI 
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RUNSTRAD 


On peut le dire maintenant, 
Runstrad est un monument du 
| fanzinat: lui aussi possède un nu- | 
méro à deux chiffres et de nom- 
| breuses pages (12, sans compter 
le supplément, Runstrad +, dédié 
aux bidouilles, trucs et solutions 
de jeux d'aventure). Pour le reste, 
pas grand-chose à jeter : des ru- 
briques variées, des digits origi- 
nales, des bancs d'essais utilitaires 
et toujours le listing du mois. A 
vous de découvrir la suite, vous 
ne le regretterez pas, je pense. 


Patrick Aubert 
58, rue de la Briquetterie 
17000 La Rochelle 


Pas de problème pour compren- 
dre le titre, Drapeau noir est le 
premier fanzine pirate. Dans ce 
numéro 2, Il n'y a pas de métho- baba 
de pour déplomber tous les logi- 
clels passés, présents et à venir 
comme pourraient le croire cer- 
tains. Il n'y a pas non plus de tests | 
de jeux mais des avis sur les nou- 
velles démos et sur les travaux des 
hackers et intro-makers. Une ru- 
brique fanzine qui cause que des 
vrais fanzines (comme Ils disent) : 
les freeware. La vie quotidienne 
4 des démo-makers est une rubri- 
que dont on pourrait se passer à 
moins que se soit une pub pour 
la réforme de l'orthographe et de 
la grammaire. Le reste est plutôt 
bien mais demande à être déve- 
loppé sur plusieurs pages (une 
seule, même recto-verso, c'est 
Juste). 


Eh, non pas d'adresse. 





J'al beau chercher, fouiller, creu- 
ser mais Je ne trouve pas : y a-t-Il 
un jeu de mot qui m'échappe 
dans le titre de ce fanz' ? Toujours 
est-il que ce numéro 1 est gratuit Le 
et comprend 2 pages recto. Les 
photocopies en ma possession ne 
à sont pas des mellleures mais on 
va faire avec (ce n'est pas pour 
| mon goût personnel mais parfois 
cela passe mal dans la revue, 
pensez-y). En peu de pages, les 
rubriques habituelles : bancs 
| d'essai, infos, bidouilles etc. Bon 
4 à mon avis, il faudrait revoir le io. gs US connai nue 
look général qui fait un peu [M Maventure one er Cent d lasnrd vous 1 “gros on 
| «pauvre» par rapport à la con- M res ‘adresse à à 
Currence. Pour changer, il faut | 
peut-être tenter le passage vers |} 
| Un soft de PAO plutôt que de 
continuer avec Téxtomat et OCP. 


_ GF 


Fabrice Meunier 
65, rue des silos 
| | La Grive 
38300 BOURGOIN-JALLIEN 


SYNTAX 
NN OX 


Ce fanzine compte aussi parmi 
les «grands». Je devrais plutôt dire ki 
comptait, car ce numéro est le 

| dernier produit. Dommage car le 
look était plutôt «typé» : des Jeux 
de mots dans tous les coins et 
des dames pulpeuses et très des- 
hablliées qui hantalent les colon- 
nes. De toute façon l'arrêt n'est 
peut-être pas définitif et on re- | 
verra peut-être un Jour refleurir 
Syntax. Essayez quand même de 
vous procurer les anciens numé- 
ros. 
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«gguur", ca veut dire 


Le style de Read Only est dé- 
 poulillé : les cases contenant les 
| textes sont de plus en plus espa- 
cées au fil des pages. Ce qui est 
ef j vi _ | certain c'est que la lecture est 
sindetern | | mi ans LP - plus facile ainsi. Le fanzine est | 
| gratuit et comprend une rubrique 
Test du mois avec des harcopies 
ait | d'écran, une interview de Longs- 
ques mtistus Frs | hot, des concours et un Top (pas | 
1 OA surprise Mis | encore réalisé because ce sont 
| | les lecteurs qui choisissent). Il pa- À 
\ rait que le numéro deux com- 
k: | À 10 prendra plus de programmation 
ae à Ve ai. pus vos pakes et Vi teur CT. et plus de textes. 
Vue dessin se Lire e 7 
Cet Lo Ras À 4 Ms ES VE es à M David Tatin 
Mas petit rebattu, Moules 


aura plus le nois proc | 
= en a rarre de signer: 13280 Raphele les Arles 
TATIN Dav id 
MAS PETIT REBATTU MOULES 
13289 RAPHELE LES ARLES tour nez ] a P age . . 
enveloppe tinbree pour DECOUURIR 
durs we le port. 
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Le numéro 2 est touffu, trés touffu. 
C'est à dire qu'il y a de quol lire : 
entre les bancs d'essal de jeu, 
avec recople d'écrans graphi- 
ques, le dossier overscan, les bi- 
douilles hard et soft (avec sché- 
mas correspondants, une inter- 
view du célèbre Fefesse vous 
aurez assez vite l'envie de lire le 
numéro 3. À mon avis, si Hacker 
Mag continue à se maintenir à 
ce niveau de qualité, il risque de 
devenir un des mellleurs. 


Patrice Maubert 
42, rue Croix Perrine 
36000 Chateauroux 
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Pour ce fanzine, je cède volontiers la pa- 
role aux auteurs (c'est moins fatiguant) : 
«Nous avons réalisé ce fanzine car nous 
N adorons le CPC et nous voulons faire par- 
N tager notre passion aux autres (J'ai changé 
la phrase car sinon ce n’était pas trés clair 


NDLR). Notre fanzine est bimensuel et gra- li 
tuit (sauf frais de transport). Le no 2 com- | 
prendra 12 pages où plus, avec pleins de À 


dessins, de nouvelles rubriques. Ce numé- 
ro coutera 3.00 frs (pour les feuilles, ru- 
bans...), sauf pour ceux qui auraient déjà 
le no 1. Le prix sera alors de 1.00 fr. Dans 
"| ce no 2 Vous pourrez commander une dis- 
| quette sur laquelle se trouveront des des- 
sins pour PAO. Il vous suffira de nous en- 
voyer une disquette vierge+4.40 frs (trans- 
| port) où 35 frs + votre adresse complète. 


| Jerôme Rossi 


7, Grand rue 
54150 MANCE 


Une petite chose à remarquer 


Ù tout d'abord : le numéro de ce 


fanzine comprend 2 chiffres, 


À chose très rare dans le monde 


des revues amateurs. Donc, c'est 


| un vétéran qui étale ses 10 pages 


rectos. Ils ont Un avantage sur 
leurs concurrents : ils m'envoient 
plus ou moins régulièrement leur 


j production, ce qui est plutôt 


sympa, non ? Bon maintenant Je 
peux déverser mon fiel : je trouve 
que la présentation est trop dé- 


| pouillée et que les digits sont 


vraiment justes au niveau qualité 
(ou alors il faut changer très vite 
d'imprimante). En revanche, les 


| bancs d'essais sont plus longs et 
| plus complets que chezles autres 
| et Il y a même des listings très 
| courts (je ne savais même pas 


que ça existait). Allez-y, abonnez- 


VOUS. 


Laurent Schneller 
BP 19 


| 37130 Langeais 
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Encore un cas particulier dans le 
monde des fanzines et de l'Infor- 
matique : Croco passion est, à 
ma connaissance le seul fanzine 
| dirigé par une personne du sexe 
féminin autrement dit, pour ceux 
qui n'auraient pas compris, par 
une fille. Ce handicap certain, ne 
l'empêche pas de faire du bon 
| travail : des dessins et digits un 
peu partout, des pubs pour les 
autres fanzines, des bidouilles, des 
listings très courts. Tout cela tient 
en une dizaine de pages et c'est 

| plutôt agréable à lire. 


Sandrine COUTELIER 
3, rue des Hortensias 
91380 Chilly Mazarin 
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PAGE 9 -Bloodwych, Tops 


€ 
PAGE 


51600 


€_avec votre adresse” 


Un nouveau venu et qui est 
payant (il vaut mieux le dire, car 

._ | certains n'aiment pas du tout 
cela). Le numéro un comprend 3 
pages recto avec quelques des- | 
sins. Ce n'est pas le nfrvana en 
ce qui concerne la présentation su 
mails elle est relativement honné- 5 5 © 3: Listings 
te et Il y a une rubrique initiation ks® re Dessins n LCR 
au fonctionnement du CPC. Le | ” = fenit vos 
listing de Starmad est confec- sin a 
tlonné par le rédac’chef et il est 
en plusieurs parties (tiens c'est 
une idée à creuser ça). Pour 
commettre son fanzine, Patrice 
Duval a utilisé un 6128, Oxford 
PAO, une DMP 2160 et Trameur 
(un excellent programme de 

| Laurent Crocq). 


Patrice Duval 
11, Cité Nantivet 
51600 SUIPPES 





GUIDE DU 


p ‘envoyer les programmes sur un 
support magnétique (disquette ou 
cassette). 


Cleonare un mode d'emploi détaillé manus- 
crit ou dactylographié, la liste complète des 
variables peut également être utile. 

Quelques cas spéciaux : les jeux. Joignez les so- 
lutions ou bien des astuces pour “visiter” l'inté- 
gralité du programme. 

Les programmes sources en assembleur seront 
publiés à condition de posséder un commentaire 
conséquent. 






u es listings sur papier ne sont pas 
obligatoires puisque les program- 
mes sont de toute façon réimprimés. 


u e programme enregistré doit répondre 
à certaines caractéristiques. 

— La taille des commentaires mis en REM ne doit 
pas dépasser 35 caractères. 

— Il faut éviter l'utilisation des codes de contrôles 
{(CTRL X, CTRL I etc} ceux-ci n'étant pas “digérés” 
par l'imprimante. 

— Les listings en assembleur doivent être accom- 
pagnés des chargeurs BASIC adéquats. 


Enfin, essayez d'être original, nous croulons sous les Master-Mind, les Yam, les gestions de fichier, les lotos sportifs 


ou non. À bientôt dans CPC Infos. « 


Porter 


Pl, toi 4 Cr ——» > 


"rs E PROGRAMMEUR 


Nom : Prénom : 
Î Adresse complète : 
Tél. : Age : 


Joindre un relevé d'identité bancaire pour paiement 
de vos piges. 


Attestati l'honne 
Je soussigné 


déclare être l'auteur du programme ctjoint et ne l'avoir 
jamais proposé à une autre revue. 


Le A 


ble clientèle de choisir l'envoi en recommandé. 


FF — 


| 
| 
| 
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Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou disquette. 





Envoyez le tout à CPC Infos — La Haie de Pan — 35170 BRUZ 


pez à CPC hfos 


- 


H E PROGRAMME 


Nom : | 
Catégorie Q Jeu Q Utilitaire Q Educatif 
Taille : 

Périphériques utilisées : 

Support Q Cassette Q Disquette a 
Comptabilité (testéé) avec : a | 
Q 464 Q 664 Q 6128 Q PCW 8256 

Q PC 1512 Q PCW 8512 l 
Signature 


* Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aima- | 
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LL 


| 
| 
| 
| 
| 
| 
| 
| 
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LES FICHIERS BAK 
—S Reprenez la disquette où vous avez 
sauvegardé ESSAI.BAS, insérez-la dans 
le lecteur et tapez LOAD"“ESSAI” (+ EN- 
TER) pour le charger en mémoire. Cela 
fait, vous pouvez afficher à l'écran les 
lignes de programme par LIST. Au fait, LIST après LOAD 
ne fonctionne en principe qu'avec les fichiers de type 
Basic, quoique... Mais n'anticipons pas. 

Maintenant, tapez à nouveau SAVE“ESSAI” (+ ENTER). À 
quoi ça peut servir de sauvegarder 2 fois le même pro- 
gramme ? C'est qu'entre les 2, aidé par les commandes 
LIST et EDIT, vous avez la possibilité de compléter et de 
modifier le programme, en un mot de fractionner vote 
travail en plusieurs séances de saisie. Là aussi, patience... 
Faites maintenant CAT. Sur le catalogue affiché appa- 
raissent côte à côte les fichiers ESSAI.BAS et ESSAI.BAK. 
D'où sort-il, celui-là ? C'est tout simplement la première 
version du fichier ESSAI, que dans sa grande mansué- 
tude le système a conservé en renommant son exten- 
sion. 





En effet, 2 fichiers portant à la fois le même nom et la 
même extension ne peuvent coexister sur disque (même 
si l'extension est celle attribuée par défaut par le système), 
à l'intérieur d'un même sous-répertoire (USER). Dans ce 
cas, le fichier existant déjà sur disquette est renommé 
en fichier BAK (de BackUp, qu'on peut traduire par Ar- 
chive), et le fichier à sauver le remplace. 

Si vous sauvez plusieurs fois de suite le même fichier Ba- 
sic, seule la dernière version figure avec l'extension BAS ; 
l'avant-dernière porte l'extension BAK, et toutes les pré- 
cédentes sont effacées, suivant le principe de non-coexis- 
tence de 2 fichiers portant exactement la même dési- 
gnation (No d'USER, nom et extension). 

A quoi servent donc ces fichiers BAK ? En cas de remords 
(pas trop tardif, quand même). Si vous vous rendez compte 
que la dernière version de votre programme est moins 
bonne que l'avant-dernière, vous chargez l'avant-der- 
nière version par LOAD“ESSAI.BAK”, par exemple : atten- 
tion, ici il faut préciser l'extension, sinon c'est l'autre ver- 
sion qui sera chargée. Puis vous la sauvegardez par 
SAVE"ESSAI”. Au catalogue, vous avez toujours ESSAI.BAS 
et ESSAI.BAK, mais vous avez inversé les 2 versions. 


Si ça ne vous paraît pas clair, créez un fichier ESSAI avec 
la ligne 10 déjà vue. Après sauvegarde, mettez-le à jour 
en tapant une seconde ligne d'instructions (20) et sau- 
vegardez sous le même nom. Visudlisez les fichiers 
ESSAI.BAS et ESSAI.BAK par LOAD et LIST, puis effectuez 
la manip proposée, et Visualisez à nouveau. 


MORCELLEMENT DES FICHIERS 
TT Ces sauvegardes successives, avec 
effacement automatique de l'avant- 
avant-dernière version, ne sont pas 
sans conséquences sur la répartition 
physique des fichiers sur la disquette. 
L'effacement d'un fichier, qu'il soit automatique ou vo- 
lontaire, via une commande appropriée que je vous 


exposeral en temps utile, n'efface en fait rien du tout. 
Surprenant, non ? Je m'explique : physiquement, l'enre- 
gistrement est toujours là. Mais le système l'a marqué d'une 
manière spéciale : il lui a affecté le numéro d'USER 229, 
non accessible directement. Cette innoncente manipu- 
lation a pour effet : 

- d'empêcher le système de lire le nom du fichier au 
catalogue, 

- de rendre disponibles les secteurs occupés sur la dis- 
quette par le fichier, ainsi que sa place au catalogue. 
Tant qu'il reste de la place libre sur la disquette (des pis- 
tes où des secteurs vierges), les choses en restent là. Mais 
dès que le manque de place se fait sentir, le système 
récupère les secteurs correspondants aux fichiers “effa- 
cés” pour les sauvegardes ultérieures. Si les emplacements 
à récupérer sont plus petits que le fichier à sauvegar- 
der, celui-ci sera réparti sur des secteurs non contigus. Et 
voilà pourquoi votre fille est muette, et pourquoi vous 
entendrez parfois parler de fichiers éclatés, ou morce- 
lés. 


Une disquette de travail ayant servi à des bidouilles in- 
tensives ressemble à un vrai manteau d'arlequin, lors- 
qu'on l'examine avec la fonction MAPPING ou EXPLO- 
RATION d'un gestionnaire de disquettes. Cette fonction 
vous dessine la “carte” de la disquette, en indiquant ce 
qui appartient à chaque fichier, piste par piste et sec- 
teur par secteur. 

Conséquences de tout cela ? Le morcellement des fi- 
chiers augmente, vous le comprendrez aisément, les 
temps de chargement en multipliant les accès à la dis- 
quette pour Un même fichier. 

Je vous donnerai le mois prochain une solution au pro- 
blème : en attendant, essayez d'en imaginer une, ce 
sera très formateur. 


LE FORMATAGE 
NX Pour sauvegarder, il vous faut une 
disquette formatée, comme je vous 
l'ai appris précédemment. Evitez de 
vous retrouver dans la situation très 
désagréable où vous venez de créer 
en mémoire Un programme ou un dessin d'écran assez 
conséquent, où vous n'avez plus assez de place sur la 
disquette de travail, et où vous avez oublié de formater 
à l'avance votre dernière disquette disponible | Scéna- 
lo-catastrophe ? Peut-être, mais ça arrive... 





Pour formater une disquette, vous avez l'embarras du 
cho : 

- travailler sous CP/M : 

e routine Disckit 2 sous CP/M 2.2 (sur 664, où 464 avec 
lecteur externe), 

e routine Disckit 3 sous CP/M Plus (sur 6128), 

- Utiliser la fonction formatage de tout gestionnaire de 
disquettes qui se respecte, 

- lancer un utilitaire de formatage publié en listing. 


Dans la plupart des cas, le programme de formatage 
vous demandera : 

- le type de format désiré : choisissez DATA, c'est le seul 
auquel vous aurez affaire pendant longtemps : 


< 


D 


DEBUTANTS 


- le nombre de pistes (40 ou 42) ou le N° de la dernière 
piste (39 ou 41). 

La valeur “classique” est 40 pistes (N° O à 39) : Disckit 
n'en connait pas d'autre. Mais Il est possible d'inscrire 2 
pistes supplémentaires sur vos disquettes, si l'utilitaire peut 
le faire. Gain de place : 9216 octets en plus, soit 9 K pour 
le même prix, ça ne se refuse pas. 

Mais il y a un hic. C'est que le système d'exploitation de 
l'Amstrad s'obstine à ne reconnaître que le nombre 
“classique” de pistes. Qu'à cela ne tienne, il suffit de le 
prévenir de ces nouvelles dispositions, en lançant le pe- 
tit programme suivant : 

10 OPENOUT“BIDON” 

20 POKE &A8A8,&FF 

30 POKE &A895,PEEK(&A895)+13 

40 CLOSEOUT 


Sauvez-le sous le nom INIT (pour INITialisation), et com- 
mencez chaque séance de travail par RUN“INIT” après 
avoir placé dans le lecteur la disquette contenant INIT.BAS. 


SAUVONS LES MEUBLES 


Vous avez appris le mois dernier que 
les fichiers existaient en 3 types (Ba- 
sic, Binaire et ASCII), et que le type 
de fichier était déterminé par la 
commande utilsée pour la sauve- 
garde. 


Nous avons vu comment sauver dans le type Basic et 
sous le nom ESSAI la ou les lignes de Basic numérotées 
contenues en mémoire, par : 

SAVE“ESSAI” 

Ge ne préciseral plus à chaque fois qu'une commande 
doit être validée par ENTER ou RETURN, maintenant que 
vous avez compris). 


Vous pouvez aussi le sauver dans le type Basic Protégé 
par la commande : 

SAVE“ESSAI”,P 

Cette commande a pour effet d'empêcher le charge- 
ment du programme par LOAD. On peut seulement le 
lancer par RUN“ESSAI” et on ne peut plus stopper son 
exécution par un Break (en appuyant 2 fois de suite sur 
ESC). 

Et pourquoi donc ? Parce que sinon Il est toujours possl- 
ble d'examiner le programme avec la commande LIST, 
et de la modifier avec EDIT où de le compléter. Pour 
couronner le tout, ce type de sauvegarde est irréversi- 
ble avec les moyens dont vous disposez normalement. 
Pensez donc à sauver aussi ESSAI de la manière normale 
si vous avez besoin de la metire à jour par la suite. 
Merveilleux, direz-vous, voilà mon œuvre à l'abri des 
regards Indiscrets et des intentions malvelllantes. C'est 
vite dit, car le premier venu disposant d'Odd Job le 
déprotègera en quelques secondes... 

Le type Binaire, maintenant, un peu plus compliqué. Vous 
avez tapé un listing de jeu ou d'utilitaire en Basic, mais 
constitué presque uniquement de lignes commençant 
par le mot-clé DATA, suivi de codes ésotériques. Ce genre 
de programme est un chargeur Basic de codes binaires 
(ou plus exactement hexadécimaux). Après sauvegarde 


ES 


classique en Basic, le lancement de ce programme par 
RUN écrit en mémoire une série de nombres binaires, 
correspondant à une séquence d'instructions (donc un 
programme) en langage machine. 

SI le chargeur Basic ne sauvegarde pas ensuite auto- 
matiquement le programme binaire ainsi créé, c'est à 
vous de le faire dès l'affichage du Ready. || faut préciser 
dans la commande : 

- que c'est du binaire (B), 

- l'adresse du chargement (début du code), 

- la longueur du code (en nombre d'octets), 

- facultativement, et seulement si elle est différente de 
l'adresse de chargement, l'adresse de lancement (point 
d'entrée du programme). 


Exemple : SAVE“BIDULE”,B,&A000,&40,&A010 


Rassurez-vous, adresses et longueur (en hexadécimal, 
parfois en décimal) sont toujours précisées avec le pro- 
gramme listé, si ce dernier ne procède pas à la sauve- 
garde automatique. 


Mais il n’y a pas que les programmes en langage ma- 
chine à être sauvés sous forme de fichiers binaires. Je 
vous ai dit que les dessins d'écran étalent des fichiers- 
images. Une image-écran n'est que la transcription, sous 
forme de points allumés ou non, de différentes couleurs, 
de la valeur des octets de la mémoire écran, c'est-à- 
dire des nombres binaires qui y sont écrits. 

Voici la commande, toujours la même car adresse de 
chargement et longueur sont constantes : 


SAVE“ECRAN”,B,&C000,&4000 
ou SAVE“ECRAN”,B,49152,16384 


ll est maintenant possible de définir ce qu'est concrète- 
ment une sauvegarde, de type Basic ou Binaire. 

C'est tout simplement la recopie sur disquette de la por- 
tion de lo RAM contenant les informations ou les Instruc- 
tions à sauver. 


Le système doit savoir à partir d'où, et sur quelle longueur, 
il doit recopier les octets écrits dans la RAM : 

— pour Un programme binaire, début et longueur sont 
varlables, il faut donc les préciser : 

— pour une image-écran (codée en binaire dans la RAM 
écran), il faut quand même préciser le début et la lon- 
gueur de cette RAM écran, même si ces données sont 
constantes : 

— pour Un programme Basic, des pointeurs Internes ren- 
selgnent le système sur les adresses de début (toujours 
la même) et de fin du programme (dépendant de sa 
longueur) : Il n'y a donc pas à les préciser. 


LE TYPE ASCII 


D'abord, que représente ce sigle ? 
ASCII = American Standard Code for 
Information Interchange, Code Stan- 
dard Américain pour l'Echange d'in 
formations. Echange entre machines, 
bien sûr. Les systèmes pouvant être différents, il était 
nécessaire d'uniformiser la représentation interne des 






D RER F8 
FDEB6 OU LL 1, 06-06706:-06, 0 


DATA 09,54, 39,00, 10,8, 6, 6,0, 06,0, C£,17,00,03,07A6 
D ,00,00,21,06,03, A5, A6, A5, OBFO 
DATA 88,21, A9, A6, AS, 88, CONS 68 DAS, A5, 13AD 


caractères affichables ou imprimables (caractères alpha- 
numériques, plus divers signes). 

Dans le code ASCII, chacun est codé sur un octet, donc 
représenté par un code numérique compris entre 0 et 
255 en décimal. 

Cette standardisation ne porte en fait que sur les codes 
ASCII 32 à 127. De O à 31, il s'agit des caractères de 
contrôle, qui sont des commandes. Leur effet et leur 
représentation graphique sont souvent variables d'un 
système à l'autre. Ils agissent différemment sur un ordi- 
nateur et une imprimante. Du code 128 au code 255, 
c'est une joyeuse anarchie (caractères dits semi-graphi- 
ques). 


Ainsi, un fichier de type ASCII est un fichier de caractè- 
res (donc du texte). C'est une suite d'enregistrements, 
de 255 caractères chacun au maximum, séparés par des 
retours-chariot (code ASCII:13). 

Dans un fichier texte, chaque enregistrement est une 
variable alphanumérique correspondant à une ligne de 
texte. 

Dans un fichier de données, un enregistrement corres- 
pond à une ou plusieurs variables, alphanumériques et/ 
ou numériques, pouvant être séparées par d'autres dé- 
llmiteurs (virgules où guillemets). Pour les Variables numé- 
riques, ce n’est pas leur valeur qui est enregistrée, mais 
sa transcription en chiffres représentés par leurs codes 
ASCII. Exactement comme lorsque vous écrivez à la main 
un nombre décimal. 

Créer un fichier ASCII, c'est y sauvegarder des variables 
contenues en mémolre. || suffit de dire au système d'écrire 
(PRINT) sur disquette (canal 9) le contenu de telle ou telle 
variable, en la désignant simplement par son nom, sulvi 
du symbole de son type si ce n'est pas le type de varla- 
ble par défaut. Dans cette sauvegarde un peu particu- 
llère, Il faut au préalable ouvrir (OPEN) le fichier en sortie 
(OUT). C'est à ce moment qu'on Indique sous quel nom 
de fichier doit se faire la sauvegarde. Une fols terminée 
l'opération d'écriture, Il ne faut pas oublier de refermer 
(CLOSE) le fichler en sortie (OUT). 
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Vous avez défini les variables : 


1 — C$S=CHRS(34)+" Flute, un bug”+CHR$S(34)+”, éructa Oll- 


vler”, de type chaine de caractères (alphanumérique), 
- RI=1234.567, de type réel, ou à virgule flottante (nu- 
mérique) : attention c’est le point numérique qu'il faut 
utiliser à la place de la virgule : 

- E%=458, de type entier (numérique). 


Pour les sauvegarder dans le fichier DONNEES de type 
ASCII, exécutez le programme ECRITURE suivant : 

10 OPENOUT“DONNEES” 

20 PRINT#9,C$ 

30 PRINT#9,RI 

40 PRINT#9,E% 

50 CLOSEOUT 


Vous pouvez aussi sauvegarder des constantes 
(PRINT#9," BONJOUR" ou PRINT#9,123). Contrairement à 
ce qu'affirme le manuel, Il est déconseillé d'utiliser WRITE#9 
pour enregistrer les variables alphanumériques. Le réser- 
ver aux variables numériques (léger gain de place). 


Dans un fichier ASCII, les variables sont disposées dans 
l'ordre où elles ont été enregistrées (fichier SEQUENTIEL). 
Pour accéder à une variable déterminée, il faut d'abord 


lire toutes celles qui précèdent (que l'enregistrement ait 
eu lieu sur cassette ou sur disquette). 


La fin du fichier est marquée par le code ASCII 26 (EOF, 
End Of File), inscrit par la commande CLOSEOUT. Vous 
pouvez d'ailleurs remplacer CLOSEOUT par 
PRINT#9,CHR$S (26) : au lieu de taper CHR$(26), vous pou- 
vez aussi appuyer simultanément sur CONTROL et Z (c'est 
la même chose). 


Notre programme Basic ESSAI peut également être sau- 
vé en ASCII par : 

SAVE"“ESSAI”,A 

C'est indispensable sur 464 pour pouvoir appliquer à ESSAI 
les commandes MERGE et CHAIN MERGE : ça ne l'est 
plus sur 664 et 6128. 


Un programme Basic est enregistré en ASCII exactement 
comme Il se présente à l'écran, sous forme de texte. Ah 
bon, parce que ce n'est pas comme ça qu'il est sauvé 
en Basic ? Non mes bons amis, la sauvegarde en Basic 
recople la mémoire, et Un programme Basic en mémoire 
n'a pas du tout l'aspect qu'il a à l'écran. Les mots-clés 
du Basic notamment, sont codés sur un seul octet quelle 
que soit leur longueur : on appelle ce code un TOKEN 
Geton en anglais). 


PERMETTONS-NOUS 
QUELQUES FANTAISIES 


Il Y a 3 types de fichiers, et 3 types 
Correspondants d'extensions par 
défaut, plus l'extension BAK, d'accord, 
Et la liberté d'appeler ses fichiers 
comme on veut, alors ? Sachez qu'elle 
est totale, dans la limite des caractères autorisés et de 
la longueur maxi permise. 


Vous avez parfaitement le droit de sauver, en Basic, le 
programme Basic ESSAI en lui donnant l'extension BIN 
ou <3 espaces» : il faut alors clairement le préciser dans 
la commande. 

Plus sérieusement, le libre choix du nom et de l'exten- 
sion vous permettent : 

- de donner à vos fichiers des désignations plus claires, 
plus mnémoniques (c'est on ne peut plus recomman- 
dable) ; 

- dans une même application utilisant plusieurs fichiers 
différents, d'employer : 

e un préfixe ou un suffixe commun dans le nom, séparé 
par un tiret, 

e le même nom, et des extensions différentes. 

La seconde possibilité est à proscrire. En cas de mises à 
jour portant successivement sur les différents fichiers, vous 
n'aurez toujours qu'un seul fichier BAK (puisque le nom 
est le même), et vous pourriez Vous en mordre les doigts. 
Il faut privilégier la première solution : des extensions dif- 
férentes exprimant la fonction de chaque fichier, c'est 
très bien, mais les noms aussi doivent être différents (au 
moins d'un caractère). 

Par ailleurs, les extensions maison” doivent être claire- 
ment précisées au chargement où à l'utilisation des fi- 
chiers ainsi sauvegardés. 


CHARGEMENT DES FICHIERS 
EN MEMOIRE 


Q Rappel : les extensions BAS, BIN et <3 
espaces> sont des INDICATEURS DE 
TYPE. Si l'extension n'est pas précisée 
à la sauvegarde, elle est automati- 
quement donnée par le système, en 
accord avec le type mentionné dans l'en-tête pour les 
2 premières, en l'absence d'en-tête pour la troisième (ex- 
tension par défaut). 
Oui, mais nous avons vu la possibilité d'attribuer à un fi- 
chier une extension ne correspondant pas à son type. 
Que se passera-t-il si nous lançons la commande 
LOAD"ESSAI” sans préciser d'extension ? 
Sans se préoccuper le moins du monde du type (men- 
tlonné dans l'en-tête, où exprimé par l'absence d'en- 
tête), une telle commande va rechercher : 
- d'abord le fichier ESSAI.<3 espaces», 
- à défaut, le fichier ESSAI.BAS, 
- à défaut, le fichier ESSAI.BIN. 
Le premier fichier trouvé dans cet ordre sera chargé en 
mémoire. SI c'est un fichier ASCII de texte, vous obtien- 
drez le message d'erreur “Direct Command Found”. Le 
système considère qu'il pourrait blen s'agir d'un pro- 
gramme Basic sauvé en ASCII, mails ne pourrait blen s'agir 
d'un programme Basic sauvé en ASCII, mails ne trouvant 
pas de numéro de ligne, Il proteste contre l'Intruslon de 
‘commandes en mode direct” dans ce “programme”. 
Un flchler de données numériques donnera le message 
“Line Does Not Exist”. Blen sûr que cette ligne de pro- 
gramme n'existe pas | 
SI aucun fichier ne correspond à ces 3 désignations, il 
vous fait part de sa déconvenue : “ESSAI.<3 espaces> 
Not Found”. 
Moralité : toutes les autres extensions (y compris BAK) 
doivent être spécifiées au chargement. 
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Vérifiez vos 
dépenses sur 
vos relevés de 
comptes et 
signalez 
immédiate: 
ment toute 
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Le Particulier 
Avril 1990 


et la meilleure manière de faire cela 
avec facilité, rapidité et certitude 
est d'utiliser 
la gestion bancaire par excellence 


FAIRBANK 


(La Nouvelle Version 2.0) 


IL VOUS DONNE : 
Une méthode de saisie ultra-simple, voir semi-automatique, 40 pos- 
tes à personnaliser pour ventiler et totaliser vos transactions dont 
chèques, cartes crédit, prélèvements, retraits. Simplicité pour cor- 
riger, effacer, totaliser, trier, solder, pointer/vérifier, imprimer... Re- 
cherche et listing par date, par nom, par poste, par nom et poste, 
par chèque et bien d'autres encore | 


Mais surtout, ce qui distingue Fairbank, c'est que tout a été prévu, 
grâce à sa construction logique, sa rapidité d'accès et d'utilisation 
et sa congénialité tout à fait remarquable, pour vous éviter les 
irritations si souvent rencontrées avec des utilitaires de ce type. 
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UTILISE LE DEUXIEME 64 K 
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EXECUTION ! 
Ts Une fois le programme chargé en 
mémoire, il faut l'exécuter. Si c'est un 
programme Basic, Il suffit de taper RUN. 
S'il s’agit d'un programme Basic sau- 
vé en ASCII, le fait de le charger par 
LOAD l'a retransformé en Token, Il est donc possible de 
le lancer par RUN ou de le sauver en Basic, comme si on 
venait de le taper au clavier. C'est le seul genre de fi- 
chler ASCII qu'on peut charger par LOAD, puis afficher 
par LIST, ou lancer directement par RUN. 
Il y a là quelque chose de très important. Vous venez de 
volr que pour créer un fichier ASCII. il suffit de quelques 
instructions simples, qui peuvent faire partie d'un pro- 
gramme Basic. Les variables alphanumériques ainsi sau- 
vegardées peuvent très bien être composées d'instruc- 
tions Basic diverses, combinées par le programme et 
précédées d’un numéro. Elles ne présentent donc au- 
cune différence avec des lignes de Basic sauvegardées 
en ASCII, d'accord ? Dans ce cas, le fichier ainsi créé 
peut être lancé directement par RUN. 





ll est ainsi relativement facile de concevoir un programme : 
- qui crée de toutes pièces des programmes d'applica- 
tion Indépendants, 

- où qui s’automodifie, en s'adjoignant automatiquement 
par CHAIN MERGE les lignes qu'il a créé, et en se sauve- 
gardant lul-même en fin de programme. Fabuleux, non? 


L'exécution d’un programme en langage machine se 
fait par la commande : 
CALL <Adresse de chargement, ou de lancement> 


Même chose si c'est une RSX (Resident System eXten- 
sion, ou extension des commandes Basic), mais en plus il 
faudra, chaque fois qu'on aura besoin de cette com- 
mande, la taper ou l'inclure dans le programme Basic 
associé, précédée de : (ou Ü). 





330 DATA 00,54, 38,00, 10,5B,06, 06,00, 06,04,” (,17,00,C3, 076 à 


335 DATA CE 248, 00,00, 21,06, 03, A5, AG, A5, OBFO 
340 DATA 88,21,B5-2T; 6,45, A6, 5,68, ED ASE LAAD 
345 DATA 88,06,05, 00,33, 5,ÉE, 00,67,B5,CC, 06, 05,00, C3,0F, 18CB 
350 DATA 0F,BC,06,17,00,C3,0F,0F, 34,06, 05,00, 0F, 2E, 00, 00, 1B10 
355 DATA 01,06,03,0F,4C,0F,88, 01, 1F, 03, 2E, OF, 8B, 2E, OF, 88, 1DBC 


Si c'est une Image-écran, le chargement dans la RAM 
écran affiche l'image aussitôt. 


Les programmes en Basic ou en Binaire peuvent égale- 
ment être lancés directement par RUN"nom du fichier”. 
Si l'extension n'est pas précisée, la hiérarchie de recher- 
che est la même qu'avec LOAD. 

Pour Un programme en langage machine, et contraire- 
ment à CALL, l'exécution directe par RUN'"fichier.BIN” n'a 
pas besoin de l'adresse de chargement où de lance- 
ment (elle est indiquée dans l'en-tête). 


SI un programme en Basic et un autre en Binaire doivent 
cohabiter en mémoire (cas des RSX, notamment), il est 
IMPERATIF d'isoler la zone de mémoire réservée au Bi- 
naire de toute intrusion par les variables du Basic. La 
commande : 

MEMORY <Adresse de chargement>-1 

fixe la frontière : Binaire au-dessus, Basic en-dessous. Il 
faut l'inclure au tout début du programme Basic, avant 
la commande de chargement du fichier binaire. 


UN CLOU CHASSE L'AUTRE, 
MAIS PAS TOUJOURS... 


=. Le chargement d'un programme 


Basic par LOAD où RUN, non seule- 
ment remplace le programme Basic 
précédent, mails annule également 
toutes ses variables. 
SI vous venez à conserver ces variables, pour les réutili- 
ser dans le programme suivant, il faut placer dans le pre- 
mier programme la commande : 
CHAIN“nom du second programme” 
Facultativement, vous pouvez faire suivre la commande 
du numéro de ligne où doit démarrer le nouveau pro- 
gramme (équivalent d'un GOTO), séparé de la com- 
mande par une virgule. Par défaut, le programme est 
lancé à la première ligne. 


En plus des variables, vous avez peut-être aussi envie de 
conserver tout où partie du premier programme. Dans 
ce cas, placez dans celui-ci, à l'endroit adéquat, la 
commande : 

CHAIN MERGE“nom du second programme” 

SI dans les deux programmes existent des numéros de 
ligne identiques, celles du premier sont écrasées. 


Comme précédemment, vous pouvez préciser à quelle 
ligne doit être lancé le programme résultant de la fusion 
(par défaut, au début). En plus, toujours séparé de la 
commande par une virgule, vous pouvez préciser un 
ensemble de lignes du premier programme à supprimer, 
si elles ne sont pas écrasées par le second. Exemple : 
CHAIN MERGE"ESSAI”,N° de ligne, DELETE <ensemble de 
lignes> 

Attention : si vous utilisez la seconde option (DELETE) et 
pas la première, vous devez Insérer DEUX virgules entre 
l'option et la commande. 


A suivre... 









Claude LE MOULLEC 


Valable pour CPC 464 - 664 - 6128 


Une pauvre petite disquette doit rejoindre son CPC en se gardant des sources 
magnétiques, de la chaleur et des virus baladeurs. Aidez-la. 
CHARGEMENT : Tapez et sauvez les programmes VIRUS.BAS et 
DATAVIR.BAS. Ensuite RUN "DATAVIR.BAS” vous donnera 
VIRUSBIN.BIN. Vous lancerez le jeu par RUN VIRUS”. 


YL=1:CER=2:GOSUB 498 


LIN REM ïsstsstssesereiesestes: ZE | 499 at=" 90080 599 TT] 90008 “:ZL=1: DUV 
28 REN : EB | YL:2:CER:2:GOSUB 498 
39 REM : CLAUDE LE MOULLEC : DZ 


419 PLOT 16,16,7:DRAW 622,16:PLOT 16,18:DRAN 622,19:PLO >MC 








49 REN : presente : NN | T 12, 14:DRAU 29, 14:PLOT 12, 12:DRAN 29, 12:PLOT 626, 14:DR 
RASE EE | Au 618,14:PLOT 626, 12:DRAV 618, 12 

68 REN : VIRUS : LM | 429 A9="AMI:VEUX TU VOIR LA PRESENTATION ?":ZL=5:YL:11: )2P 
ROBE OPA RER RE JB | CER:3:GO0SUB 498 

68 REN : SAV BJ | 439 a8="< OUI € NON <":ZL:12:YL=13:CER=8:GOSUB 499  DXN 
S# BEN : LAC SOFTUARE  : RG | 449 AS=INKEYS:IF A$="" THEN 449 DAY 
HN RON : 65 RUE JOLIUT CRIE : PAC | 459 AS-UPPERS(ASI:IF A$="O" THEN CLSHL:GOSUB 2509:GOT0 BJ 
119 REM : 22429 PLOUARET  : 8 | gg 

RER TES SEAT 2 A | 469 1F A$="N" THEN 479 ELSE 449 UP 
ORAN à RER RER RAT ERRT EEE IR | 479 RESTORE 269/:READ A$:2L=5:YL=21:CER=A:GOSUB 492:G0S KT 
148 MEMORY &7FFF LA | up 209 

159 LOND VTRUSRIN", 48978 00 | 489 GOSUB 2379:6070 579 RP 
168 REM sitssivsisinesannnnnstts VIN | 498 AS=UPPERS(A#):FOR T=1 TO LENCAS):PS=(ASC(MIDS(AS,T, DHC 
189 REM : VARIABLES DE BASE : HN | 598 1F PSC THEN PS-43 Qc 
EU LD | 648 CALL 49D28,PN LPCZL,YL)+(7#2)-cer,LODAS* (PS#16)2NEX NB 
298 REM sossssseesseesessesseonse >ZP T:RETURN 

219 DEFINT a-z:HODE S:BORDER 8 D | 529 REM sttreststseneseeeeete A 
228 RESTORE 23:FOR h=8 TO 15:READ a: INK h,a:NEXT SRZ | 539 REM : LB 
239 DATA 8,24,2,11,9,24,3,6,1,7,15, 13,26, 29,19, 18 JNR | 549 REM : BRANCHEMENT TABLEAU : >2Y 
248 DIM sp(28):FOR h:9 TO 19:spCh+1)=49978+(hx144):NEXT DYH | 558 REN : SLD 
259 DIM je(12,7):DIM jn(36,21) ML 568 REM ssssssssesenesenssesees: 22 
268 DEF FN polx,y)=&CBA4+(y-1)#249+(x-1)46 HN | 579 ON ta GOTO 588,599,698,619,629,639,649,658,660,678, >FC 
218 DEF FN pVlx, y)=4CHA4+ (y-1)288+ (x-1)22 XGE | 689,698, 798, 719, 729, 739, 748 

289 DEF FN Iplx,y)=4C090+(y-1)#88+(x-1)#2 GX | 588 RESTORE 3169:GOSUB 886:G0TO 1184 >DA 
299 WINDOW #1,1,29,3,23:VIE=5:TA°1 )BQ | 59g RESTORE 3198:G0SUB 899:GOT0 1188 )DE 
399 ENT 3,104, -59,38 ND | 6gg RESTORE 3236:G0SUB 8#4:G0TO 1189 >DQ 
319 ENV 15,1,5,1,18,1,4,5,-3,1:ENT 14,49, -18,1 KE | 619 RESTORE 3278:GOSUB 894:GOT0 1188 >D4 
339 GOSUB 2969:P=1:EVERY 16 GOSUB 3968 DED | 639 RESTORE 3338:GO0SUB 849:GOT0 1168 >DV 
34ÿ REM tisstisssitiisetettetts DIN | 648 RESTORE 3368:GOSUB 886:G0T0 1189 >DZ 
359 REN : : LB | 659 RESTORE 3398:G0SUB 849:G0T0 1188 »DD 
369 REM :  DECOR DE BASE  : PR | 668 RESTORE 3438:GOSUB 886:GOTO 1188 >DZ 
376 REX : : LD | 679 RESTORE 3478:G0SUB 899:GOTO 1188 )DE 
JG REM itstststisiisiriities: )21 | 688 RESTORE 3589:GOSUB 8#6:G0TO 1189 >DZ 
399 a$=" SCORE VIE TAB HIGHT *:ZL:1: DYH | 69g RESTORE 3538:G0SUB 844:GOTO 1188 >DD 





798 RESTORE 3568:GO0SUB 88B:G070 1189 >DY 
719 RESTORE 3598:GO0SUB 899:G0T0 1188 )DC 
728 RESTORE 3628:G0SUB 8#9:G0T0 1189 )DX 
739 RESTORE 3668:G0SUB 899:GOT0 1188 >DC 
748 TA=1:G0T0 579 >LH 
758 REM sossesssgessessessesees: )ZA 
768 REM : : >LG 
719 REX : DESSIN TABLEAU ! UG 
789 REM : ; »LJ 
708 REM sisssssseesesesssenenes )2E 
888 ERASE je, jn:DIM je(12,7):DIH jn(36,21) )JC 
819 CLS #1:READ a,b,c,d:FOR g=a T0 b )BR 
828 CALL &ASSD,FN pol(g,c),sp(11):CALL RABSD,FN po(g,d), )EZ 
sp(12) 

839 je(g,c)=1:jelg,d)=1:NEXT g )YD 
849 READ a,b,c,d:FOR g=a TO b MB 


859 CALL &ABBD,FN polc,g),sp(14):CALL KABBD,FN po(d,g), >EG 
sp(13) 

869 jec,g)=1:jeld,g)=1:NEXT:READ tix,tly,x,y )QC 
878 CALL &ABBD,FN pottix,tly),sp(16):READ xi,y1 >QY 
889 READ A,B,C,D:FOR H=1 TO B:READ A$:FOR G=1 TO À >PH 
898 B$=MIDS(A$, G, 1): S=VAL("&"4B$) 2U 
989 CALL &ASBD,FN po(C+6,D+H),SP(S) )CQ 
918 je(C+G,D+H)=s-1:1F s=15 THEN je(C+G,D+H)=18:dx=ctg: >GP 
dy=dth 

929 GOSUB 988:NEXT G,H )QR 
939 READ VIR:IF VIR=8 THEN vy1=8:vxi=8:G07T0 969 QC 
949 READ vx, vy:CALL &AD31,FN pVlvx, vy) >GR 
958 SM=1:vx1=INT((vx-1)/3+1):vy1=INT((vy-1)/3+1) TE 
969 FIN=#:GAN=D:rt=9:GOSUB 2329:G0SUB 2378 )LB 
979 WHILE INKEY$C)"":WEND:RETURN CP 
989 px=C+G:py=D+tH:i=je(px, py} )2B 
998 ax=(px-1)#3+1:ay=(py-1)#3+1 22 
1895 ON i GOTO 1918, 1928, 1849, 1069, 1988, 1198, 1199,1199, DFJ 
1199,1119 

1815 RETURN )EF 
1928 jn(ux,ny+1)=2: jn(mx+1,ny+1)=2: jn(mx+2, ny+1)=2 NE 
1835 jn(ax,ny+2)=2: jn(mx+i,ny+2)=2: jn(ax+2,ny+2)=2:RETU DFT 
RN 

1848 ja(ax,ny+1)=2: jn(mx+1,ay+1}=2: jn(ax+2,my+1)=2 )VG 
1959 jm(mx,ny)=2: ja(nx+1,ny)=2: jn(nx+2,my)=2:RETURN )ZN 
1869 jn(mx+t{,ny)=2: jn(mx+1,ay+11:2: jn(axti,ay+2)=2 >WA 
1978 jn(mx+2,ny)=2: ja(mx+2,my+1)=2: ja(nx+2, ny+2)=2:RETU DFI 
RN 

1988 jatax,ny):2:jn(x,ny+1)=2: jn(nx, ny+2):2 >PV 
1898 jn(mx+i,ny)=2: jn(mx+i,my+1)=2: Jn(mx+1,ny+2)=2:RETU >FW 
RN 

1199 FOR 2=mx TO nx+2:FOR ze=ay TO ay+2:jm(z,ze)=2:NEXT DTZ 


ze, Z:RETURN 
1118 FOR z=nx TO mx+2:FOR ze=ay TO ay+2:jalz,ze)=3:NEXT )TB 
ze, Z:RETURN 
1125 RETURN )EH 
1139 REM essseseseseseseesesese DAY 
1149 REX : : RG 
1159 REM : ROUTINE PRINCIPALE : 2) 
1169 REN : ! )RJ 
1179 REM sosssssseseseseseseenses AZ 
1189 VHILE INKEY$="":NEND:EVERY 59,2 GOSUB 2298 )QC 


1198 PA=PA+1:1F pa>6 THEN GOSUB 1759 >CX 











1265 IF FIN=1 THEN 2829 )PG 
1219 IF INKEY(HA)=8 THEN 1279 MK 
1228 IF INKEY(BA)=9 THEN 1369 ME 
1239 IF INKEY(GA)=9 THEN 1548 ML 
1245 IF INKEY(DA)=8 THEN 1458 DE) 
1258 GOTO 1198 >MG 
1268 REN ::: VERS LE HAUT ::: )vZ 


1278 a=je(x,y+1):1F a={ THEN LOCATE 1,1:PRINT CHR$(7):G >HZ 
070 1199 

1288 IF vy1=y+1 AND vxi=x THEN LOCATE 1,1:PRINT CHR$(7) DKC 
:GOTO 1198 

1298 SOUND 1,688,19,6,9,3 RG 
1388 CALL &ABBD,FN polx,y+1),sp(1):je(x,y+1)=8:px=x:py= >UQ 
y+1:GOSUB 1639 


1318 IF a=19 THEN 5=15:dy=y ELSE s=a+ EN 
1328 CALL &ABBD,FN polx,y),spls):jelx,y)=a »KC 
1338 i=je(x,y):px=x:py=y:GOSUB 998:y=y+1 >LH 
1348 GOTO 1658 MH 
1358 REN ::: VERS LE BAS ::: UC 


1368 a=je(x,y-1):1F a=1 THEN LOCATE 1,1:PRINT CHR$(7):G DHB 
070 1198 

1378 IF vy1=y-1 AND vxi=x THEN LOCATE 1,1:PRINT CHR$(7) KE 
:GOTO 1198 

1388 SOUND 1,698,19,6,9,3 RG 
1398 CALL &AGBD,FN po(x,y-1),sp(1):je(x,y-1)=8:px=x:py= DUG 
y-1:GOSUB 1639 


1498 IF a=19 THEN 5=15:dy=y ELSE s=a#1 EN 
1419 CALL &ABBD,FN polx,y),spls):je(x,y)=a >KC 
1428 i=je(x,y):px=x:py=y:GOSUB 999:y=y-1 >LK 
1439 GOTO 1658 >MH 
1449 REM ::: A GAUCHE ::: >RK 


1458 a=je(x-1,y):IF a=1 THEN LOCATE 1,1:PRINT CHR$(7):G >HB 
070 1199 

1468 IF vyi=y AND vxl=x-1 THEN LOCATE 1,1:PRINT CHR$(7) DLA 
:G0TO 1198 

1475 SOUND 1,698,19,6,9,3 RG 
1489 CALL &AGBD,FN polx-1,y),sp(1):jetx-1,y)=8:px=x-1:p >UG 
y=y:GO0SUB 1639 


1498 IF a=19 THEN s=15:dx=x ELSE s=a+1 )EV 
1598 CALL &AGSD,FN po(x,y),sp(s):je(x, y)=a KC 
1519 i=je(x,y):px=x:py=y:GOSUB 999:x=x-1 >LH 
1528 GOTO 1658 MH 
1535 REM ::: A DROITE ::: JRN 


1549 a=je(x+1,y):IF a=1 THEN LOCATE 1,1:PRINT CHR$(7):G >H2 
070 1198 

1558 IF vy1=y AND vxi:x+1 THEN LOCATE 1,1:PRINT CHR$(7) DKG 
:GO0TO 1198 

1568 SOUND 1,698,19,6,9,3 RG 
1578 CALL &AGBD,FN polx+#1,y),sp(1):je(xt1,y)=@:px=xti:p DUA 
y=y:GOSUB 1639 


1588 IF a=19 THEN s=15:dx=x ELSE s=atl )EV 
1598 CALL &ASBD,FN po(x,y),sp(s):jelx,y)=a >KH 
1698 1=je(x,y):px=x:py=y:GOSUB 999:x=x+1 )LF 
1618 GOTO 1658 >MH 
1628 REM ::: ENVIRONNEMENT D7 ::: AJ 
1638 mx=(px-1)#3+1:my=(py-1)#3+1 »2B 


1648 FOR z=nx TO nu+2:FOR ze=ny TO ay+2:jn(z,ze)=B:NEXT DTG 
ze, z:RETURN 
1658 FOR h=1 TO 3:SOUND 1,49+(h#19),3,5,,,6:NEXT >PF 


ire 


1668 IF je(xi,y1)=18 THEN FIN=1:GAN=1:G0T0 1199 >PY 
1678 1F jeldx+1,dy)=9 OR je(dx-1,dy)=8 THEN FIN=1:G0T0 )CE 
1199 
1688 IF je(dx,dy+1):7 OR je(dx,dy-1)=7 THEN FIN=1:G0T0 )CC 
1199 
1699 PA=7:FOR t=1 TO 15P:NEXT:VHILE INKEY$<>"":WEND:GOT HR 


0 1199 

1798 REM ssssssesessessessenteste DAY 
1719 REM : >RK 
1725 REN : DEPLACEMENT VIRUS )YH 
1739 REM : TB 
1748 REM ssssssesesseseeseesieste )AC 
1759 PA=8:1F VIR=S THEN RETURN YF 
1768 ON SH GOTO 1779,1828,1878, 1928 >AN 
1778 IF JM(VX,VY-1)31 THEN 1798 »YD 
1788 SM=1INT(RND#4 ) +1 : RETURN XXB 
1799 CALL &A931,FN PVCVX, VY) DUC 


1898 VY=VY-L:CALL &AB31,FN PVCVX, VY):vy1=INT((vy-1)/3+1 
):G0T0 1968 


»Q] 


1819 REM ::: A DROITE )PP 
1828 IF JM(VX+1,VY)>1 THEN 1848 NT 
1838 SM= INT CRND44) +1 : RETURN D ti 
1849 CALL &AQ31,FN PVCVX, VY) MY 


1855 VX=VX+1:CALL RAD31,FN PVCVX, VY):vx1=INT((vx-1)/3+1 
):G0T0 1968 


)QH 


1868 REM ::: VERS LE BAS )RZ 
1878 IF JMCVX,VY+1)>1 THEN 1899 »YD 
1888 SM=1INT(RND#4) +1 : RETURN »XC 
1899 CALL &AB31,FN PVCVX, VY) JD 


1998 VY=VY+1:CALL &AB31,FN PVCVX, VY):vy1=INT((vy-1)/341 
):G0T0 1968 


)QH 


1918 REN ::: A GAUCHE )N4 
1929 IF JH(VX-1,VY)>1 THEN 1949 NX 
1938 SH=1INT (RNDK4) +1 : RETURN )XY 
1948 CALL &A931,FN PVCVX, VY) DZ 


1958 VX=VX-1:CALL LAB31,FN PVCVX, VY):vxi=INT((vx-1)/341 
):GOTO 1968 


)L 


1968 IF jaivx,vy)=3 THEN fin=1:RETURN ELSE RETURN )VA 
1979 REM sesssssesesseeseneeeesees )AH 
1989 REN : )TJ 
1999 REM : FIN DE PARTIE >TF 
2899 REN : )RC 
2819 REM srsossessseeseeseeseceee DAT 
2828 FOR H=8 TO 3:NU=REMAINCH) :NEXT DV 
2939 REM ::: GAGNE ::: >PH 


2848 1F GAN=B THEN 2169 ELSE CALL &AGBD,FN polx1,y1),sp DAT 
(1) 

2858 FOR h=1 TO 19:CALL &ABBD,FN pottix,tly),sp(16) DUC 
2868 SOUND 1,h#59,14,5:CALL &ABBD,FN pottix,tly),sp(17) >ZH 


2879 FOR t:1 TO 5B:NEXT t,h UK 
2988 FOR H=1 TO 16:BORDER H:SOUND 1,H#15,19,14:FOR T=1 DV 
TO 289 


2995 NEXT T,H:BORDER B:ENV 19,15,-1,1 DL 
2189 FOR H=RT TO 74:POKE &CF82+H,&FF:POKE &C782+H,LFF UM 
2118 SC=SC+5:G0SUB 2419:SOUND 1,8,15,15,19,,15:NEXT )WN 


2129 SC=SC+198:GOSUB 2418:1F SCREC THEN REC=SC:GOSUB 2 >DA 
409 











2138 FOR H=1 TO 74:POKE &CFB2+H,B:POKE &C7824H,9:NEXT  DUX 
2149 TA=TA+1:G0T0 578 >PT 
2155 REN ::: PERDU ::: >PY 
2168 BORDER 26:INK #,26:SOUND 4,1599, 59, 7,8,9,18 >PK 
2178 FOR t=1 TO 2999:NEXT t:BORDER 8:INK 8,8 )KX 
2189 SOUND 4,1299,8,8,14, 14:SOUND 4,8, 28,2,,,19 >MH 


2198 FOR h=1898 TO 1589 STEP 198:SOUND 4,h,38,8,15,15:N DAH 
EXT 

2285 FOR h=1 TO 2H89:NEXT :vie=vie-1 

2218 IF vie=g THEN TA=8:SC=9:VIE=5:GOSUB 2379:GO0SUB 241 
#:G0T0 2138 


DK 
NY 


4 À 


2228 TA=TA-1:G0T0 2138 YE 
2239 REM ssssresseseessesessesses DAX 
2248 REN : )RJ 
2258 REM : GESTION COMPTEURS )ZR 
2269 REN : ! TA 
2278 REN srssesegessesecenseseses )AB 
2288 REM ::: TEMPS ::: >PN 
2298 rt=rt+1:POKE &CF82+rt,&FF:POKE &C782+rt,&FF TR 
2398 IF rt>73 THEN FIN=1:RETURN ELSE RETURN JM] 
2319 REM ::: TAB ::: MK 
2328 AS=STR$(TA) :A$=RIGHTS(A$, LEN(A$)-1) )HJ 
2338 IF TA=8 THEN A$="998":2ZL:24:YL=2:CER:2:GOSUB 498:R >GP 
ETURN 

2348 IF TA)9 THEN ZL:=25:YL:2:CER=2:GOSUB 49B:RETURN )XY 
2359 ZL=26:YL:=2:CER=2:G0SUB 498 :RETURN JHH 
2369 REN ::: VIE ::: ME 
2379 A$=STR$ (VIE) :AS=RIGHTS (AS, LEN(A$)-1) )JL 
2388 1F VIE=8 THEN A$="999":2L=15:YL=2:CER=2:G0SUB 498: >JB 
RETURN 

2398 ZL=17:YL=2:CER=2:GOSUB 499: RETURN »JD 
2499 REM ::: SCORE ::: >PR 
2415 AS=STRS(SC) :A$=RIGHTS (AS, LEN(A$)-1) >HK 
2428 IF SC=8 THEN A$="99890":27L:2:YL=2:CER=2:GO0SUB 498: HV 
RETURN 

2438 IF SC)999 THEN ZL=2:YL=2:CER=2:GO0SUB 498:RETURN DYH 
2448 IF SC>99 THEN ZL=3:YL=2:CER=2:G0SUB 498: RETURN 

2458 IF SC)9 THEN ZL:=4:YL=2:CER=2:G0SUB 498:RETURN 

2468 ZL=5:YL=2:CER=2:GO0SUB 499: RETURN )HP 


2478 REM ::: RECORD ::: )QN 
2488 A$=STRS (REC) :A$=RIGHTS(A$, LEN(A$)-1) »JC 
2498 IF REC=8 THEN A$-"99989":2L=35:YL:=2:CER=2:GOSUB 49 >LQ 
S:RETURN 

2599 IF REC>999 THEN ZL=35:YL=2:CER-2:G0SUB 49B:RETURN AH 


2518 IF REC)99 THEN ZL:36:YL=2:CER=2:GOSUB 498:RETURN  >ZB 
2528 IF REC>9 THEN ZL:37:YL=2:CER=2:G0SUB 498:RETURN  DY4 
2539 ZL=38:YL=2:CER=2:G0SUB 498:RETURN )JC 
2549 REM sorsssssseseeeecseesesses )AB 
2558 REX : TC 
2568 REN : PRESENTATION VF 
2578 REX : TE 
2588 REM sssssressseseseseeseesse )AF 
2598 INK 14,8:RESTORE 2728:FOR h=1 T0 3:F0R g=1 TO 24 DUE 


2698 POKE &ABIA, g:CALL &ASBD,FN po(h,2),spl7):NEXT g:RE )DG 
AD A$ 


»XD : 








2618 PEN 14:LOCATE 1,23:PRINT A$:X=H#48:Y=2:GOSUB 2738: >GJ 
NEXT H 

2628 FOR h=5 TO 12:FOR g=1 TO 24 »XY 
2638 POKE LAGIA, g:CALL &ABOD,FN po(h,2),sp(7):NEXT g:RE DK 
AD A$ 

2648 LOCATE 1,23:PRINT A$:X=Hx48:Y=2:G0SUB 2738:NEXT H  )ZC 


2658 FOR h=3 TO 18:FOR g=1 TO 24 20 
2668 POKE LAB1{A,g:CALL LASBD,FN po(h,4),sp{7):NEXT g:RE >DQ 
AD A$ 

2678 LOCATE 1,23:PRINT A$:X=H48:Y=4:GOSUB 2738:NEXT H )ZH 


2688 FOR h=4 TO 8:FOR g=1 TO 24 JW] 

2698 POKE &AB1A,g:CALL &ASBD,FN poth,6)+3,sp(7):NEXT g: >GB 
READ A$ 

2198 LOCATE 1,23:PRINT A$:X=Hx48+24:Y=6:G0SUB 2738:NEXT )CL 
H 

2719 LOCATE 1,23:PRINT " “:INK 14,19:G0T0 2789 MF 
2728 DATA L,M,C,S,0,F,T,U,A,R,E,p,r,e,s,e,n,t,e,V,I,R,U >DF 
$ 

’ 


2738 FOR 1:32 TO 48 STEP 2:FOR L:1 TO 32 STEP 4 KR 
2749 ATEST(L, L):1F A=8 THEN 2778 )2C 
2758 PLOT X-4+L,318-(Y#48-(1#2)),15 )BR 
2768 PLOT X-4+L,312-(Yx48-(1#2)),2 AJ 
2778 NEXT L, L:RETURN >QH 
2788 FOR h=1 TO 58 >LQ 
2798 x=INT(RND#33) +2: y=INT(RND418) +2 )EB 


2888 a=FN pv(x,y):1F PEEK(a)©# OR PEEK(a+1) C8 THEN 27 >ZK 
98 

2818 CALL &AB31,a:NEXT:UHILE INKEY$="":WEND:CLS #1 >)W 
2828 RESTORE 2B49:FOR h=1 TO 6:READ a$:ZL=INT((4B-LENCA HD 
$))/2)+1 


2835 YL=Hn3+3:CER=2:GOSUB 499:NEXT:GO0TO 2998 )NA 
2848 DATA "UNE PAUVRE PETITE DISQUETTE" XXC 
2858 DATA “DOIT REJOINDRE SON CPC" >D4 
2868 DATA "EN SE GARDANT DES SOURCES MAGNETIQUES=" NI 
2878 DATA “DE LA CHALEUR AINSI QUE DES VIRUS" >RB 
2888 DATA "BALADEURSC<<{AIDEZ LAB" >DV 
28985 DATA "1 - JOYSTICK <{C< 2 - CURSEURS" LH 
2989 A$=INKEYS:1F A$="" THEN 2988 >ZH 
2919 A$=UPPERS(AS):1F A$=*1" THEN GA=74:DA=75:HA=72:BA= DNB 
73:G0T0 2948 

2928 IF A$="2" THEN GA=8:DA=1:HA=9:BA=2:G0T0 2948 )QH 
2938 GOTO 2988 NC 
2949 FOR H=8 TO 3:MU=REMAIN(H) :NEXT:CLS #1:RETURN )VP 
2958 REM ::: MUSIQUE ::: )TC 
2968 ENV 5,1,12,1,6,-1,2:ENT 5,2,38,1,2,-38,1 )JB 
2978 ENT 7,3,28,1,3,-28,1:ENV 7,1,13,1,6,-2,1,5,8,1 )QC 
2988 ENV 8,1,9,1,9,-1, 14:ENT -8,1,-1,1 >CQ 


2998 DATA 716,638, 682, 716, 1432, 1276, 1284, 1432,536,638,6 >FD 
92,716, 1872, 1276, 1294, 1432, 451,536, 478, 716,982, 1972,956 

, 1432,536, 638, 692, 716, 1972, 1276, 1294, 1432 

3898 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 DY 
,2,2,2,2,2,2,2,2,2,4,4,4,4,2,2,2,2,4,4,4,4,2,2,2,2,4,4, 
4,4,2,2,2,2,4,4,4,4,2,2,2,2 

3919 DIN NO(64) :RESTORE 2998:FO0R h=1 TO 32:READ a:nolh) >HA 
sa! NEXT 

3825 RESTORE 2998:FOR h=33 TO 64:READ a:no(h)=a:NEXT DC 
3838 RESTORE 3889:DIH n(256):2=1:FO0R h=1 TO 64:n(z)=nol >WD 





20 


h):READ div:2=z#1 

3848 n(z)=no(h)/div:z=z+1:n(z)=no(h)/64:z2=z+1:n(z)=noth )YN 
)/32:z=z+1:NEXT 

3858 RETURN )FB 
3868 IF (SQ(1) AND 7)=8 THEN RETURN >BH 
3878 SOUND 1,N(p),-1,3,5,5:SOUND 1,956, -1,3,5:SOUND 2,N )QJ 
(p+1),-1,3,5,4 

3888 SOUND 2,478,-1,3,5:SOUND 4,N(p+2),13,7:SOUND 4,N(p HD 
+3),13,8 | 
>NK 


3898 p=p+ä:1F p>256 THEN p=1:G0T0 3868 ELSE 3969 

3198 REM sesssseseseseesesessenes )AU 
3118 REX : : >RF 
3128 REM : DATAS 16 TABLEAUX : ){L 
3138 REM : ! )RH 
3148 REM sosssssssssseseneeessses AY 
3158 REM ::: TAB 1 ::: JNJ 
3168 DATA 5,8,2,6,3,5,4,9,9,4,6,4,8,4 BB 
3178 DATA 4,93,4,2,7977,F127,777A,8 AC 
3188 REM ::: TAB 2 ::: )NN 
3198 DATA 2,11,1,7,2,6,1,12,12,4,6,4,11,4 FT 
3288 DATA 19,5,1,1,77777717277,7777117877,3425163245 >TH 
3218 DATA 77277777117,F7217777717,1,23,17 EN 
3228 REM ::: TAB 3 :2: )NJ 
3238 DATA 2,11,1,7,2,6,1,12,1,6,6,3,2,6 )DN 
3249 DATA 18,5,1,1,277777777F,77177127777, 8888888B88 TN 
3258 DATA 4327363573, 5625474645, 8 )2U 
3268 REM ::: TAB 4 ::: )NP 
3278 DATA 5,8,2,7,3,6,4,9,9,6,7,6,8,6 )CE 
3288 DATA 4,4,4,2,F334,5674,3456,5317, 1, 23, 17 >KU 
3298 REX ::: TAB 5 ::: >NU 
3388 DATA 5,8,2,7,3,6,4,9,9,6,7,6,8,6 >BG 
3318 DATA 4,4,4,2,F334,5894,3A86, 5317, 8 DEF 
3328 REM ::: TAB 6 ::: NN 
3338 DATA 5,8,2,7,3,6,4,9,9,6,7,6,8,6 )CB 
3348 DATA 4,4,4,2,F334,5894, 3A86,5317, 1,23, 17 >KH 
3358 REN ::: TAB 7 ::: NT 
3368 DATA 4,9,2,6,3,5,3,18,3,3,9,3,4,3 >CT 
3378 DATA 6,3,3,2,887771,A8A777,79877F,8 >FL 
3389 REM ::: TAB 8 ::: NX 
339$ DATA 3,19,1,7,2,6,2,11,2,6,3,2,3,6 DU 
3488 DATA 8,5,2,1,1345678F,771777797,72277222 XKC 
3419 DATA 89777345,A8777634,9 JR 
3429 REM ::: TAB 9 ::: NT 
3438 DATA 3,19,1,7,2,6,2,11,2,6,3,2,3,6 )DN 
3448 DATA 8,5,2,1,1345678F,77777791,173456777 >KY 
3459 DATA 89777345, 48777634, 1, 14,4 DAY 
3468 REM ::: TAB 18 ::: >PF 
3478 DATA 5,8,1,7,2,6,4,9,9,6,6,6,8,6 )CF 
3488 DATA 4,5,4,1,7A87,8F77,8787, 7A97,8891,8 >KH 
3498 REN ::: TAB 11 ::: >PK 
3588 DATA 4,9,1,7,2,6,3,18,18,2,4,6,9,2 )DY 
3519 DATA 6,5,3,1,586577,278398, 433544, F63453, 174668, 1, >CU 
28,14 

3528 REN ::: TAB 12 ::: PE 
3538 DATA 5,8,1,7,2,6,4,9,9,6,8,6,8,6 CC 
3548 DATA 4,5,4,1,3484,68F56, 8384, 5A96, 8891, 1,23, 14 >RG 
3558 REM ::: TAB 13 ::: >PJ 
3568 DATA 4,9,1,7,2,6,3,18,18,4,4,2,9,4 )DE 


3578 DATA 6,5,3,1,187A77,F89977, 78AA77,789977,77A777,8 DXY 


Ce 


3588 REM ::: TAB 14 ::: 

359$ DATA 4,9,1,7,2,6,3,18,19,4,4,2,9,4 

3695 DATA 6,5,3,1,183445,F689963, 48AA45, 689973, 454673, 1, 
23,14 

3619 REM ::: TAB 15 ::: 


>PN 
>DH 
>DQ 


3628 DATA 2,11,1,7,2,6,1,12,1,4,19,6,2,4 EX 
3638 DATA 19,5,1,1,A777787779, 778777A797,9777277777 >TP 
3649 DATA 777827A77F,787727781À,8 »21 


3658 REN ::: TAB 16 ::: 

3669 DATA 2,11,1,7,2,6,1,12,1,4,19,6,2,4 

3678 DATA 19,5,1,1,A7777887179,778787A797,9777277877 
3668 DATA 777827A77F,797727781À,1,5,17 


>EB 
UE 
)EZ 


5 MEMORY 49389 :CLS 
7 LOCATE 1,18:PRINT * DATAS DE LA LIGNE CORRECTS":PEN 2 
19 A=49378:F=UADSB:L=188:VHILE AÇ=F:FOR A=A TO A+{5:READ C$:K 
SVAL(" &"+C$):S=S+K+65536%(5+K>32767):1F AC=F THEN POKE A,K 
28 NEXT:READ D$:T=VAL("&"+D$):1F TS THEN PRINT CHR$(7);"Err 
eur ligne";L:END ELSE L=L+5 
25 LOCATE 28,18:PRINT 1-5:WEND 
199 DATA 68,89,99,06, 99,99, 00,06,00,90,99,05,09,08,09,98,0909 
195 DATA 96,98, 00,09,69, 69,00 ,90,00,96,00, 09,00, 00, 00,69, 0969 
119 DATA 69,89,90,99,90,09,09,09,00,08,09,09,09,08, 09,08, 0999 
115 DATA 98,68,00,99,09,08,00, 90,08 ,60,00, 68,00, 60,99,89,0888 
129 DATA 56,80,89,00,66,08,09,09,09,09,09,89,00,995,09,08,908P 
125 DATA 86,99, 09,68,06,09,08,96,00, 90,09, 80,09,00,09,00,0866 
139 DATA 69,89,80,89, 60,09, 60,90,99,09,99,98,09,98,09,98,9999 
135 DATA 99,05, 00,09,06,00,08,96,09,60,00,90,99,60,08,80,0888 
149 DATA 59, 89,99,99,09, 09,00, 09,99,09, 99,95, 08,99, 08,99,9098 
145 DATA #4,9C,8C,8C,8C,88,0C,8C,8C, BC, GC, 4C, BC, BC, BC, BC, G8F4 
159 DATA 8C,CC, BC, BC, C, AC, BC, CC, BC, CA, CA, CA, CA, CC, 8C, C5, 8745 
155 DATA C5,C5,C5,CC, BC, CA, CA, CA, CA, CC, 8C,C5,C5,C5, C5, CC, 12AC 
169 DATA BC, CA, CA, CA, CA, CC, 8C,C5,C5,C5,C5,CC, 8C, CA, CA, CA, 1D82 
165 DATA CA,CC, 8C,C5,C5,C5,C5,CC,8C, CA, CA, CA, CA, CC, 8C,C5,2755 
178 DATA C5,C5,C5,CC, 8C, CA, CA, CA, CA, CC, 8, C5,C5,C5, C5, CC, 325C 
175 DATA 8C,CA, CA, CA, CA, CC,&C,C5,C5,C5,C5, CC, BC, CA, CA, CA, 3CB2 
189 DATA CA, CC, 8C,C5,05,05,C5,CC, BC, CC, CC, CC, CC, CC, 8C, CC, 4714 
185 DATA CC,CC, CC, CC, 40, CC, CC, CC, CC, CC, 44, CC, CC, CC, CC, 88, 5288 
199 DATA 44,CC,CC, CC, CC, 88, CC, CC, CC, CC, CC, CC, 69,C3,C3, C3, 5DFE 
195 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3, 6928 
289 DATA C3,C3,C3,03,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3, 749C 
285 DATA 69,03,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3,C3, C3, 7FBE 
219 DATA C3,03,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3, C3, 69, C3, BAES 
215 DATA C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3, C3, 965C 
229 DATA 69,C3,C3,C3,C3,C3,69,C3,C3,C3, C3,C3,69,C3,C3,C3, A17E 
225 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3, C3, 69, C3, ACAS 
239 DATA C3,03,03,C3,69,C3,C3,C3,C3,C3, 14,3, 3C, 3C, 3C, 28,B518 
235 DATA 41,03,03,C3,C3,82,69,C3,C3,C3,C3,C3,69, C3, C3, C3, BFC9 
245 DATA C3,03,69,03,C3,C3,C3,C3,69,C3, C3, C3, C3, C3, 69, C3, CAEB 
245 DATA C3,C3,03,C3,69,C3,C3,C3,C3,C3,69,C3,C3, C3,C3, C3, D667 
259 DATA 69,C3,03,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3, C3, C3,E189 
255 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3, C3, 69, C3, ECAB 
269 DATA C3,03,C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,F827 
265 DATA 69,C3,03,C3,C3,C3,69,C3,C3,C3,C3, C3,69, C3, C3, C3, 8349 
278 DATA C3,03,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3, SE6B 








21 


275 DATA C3,03,03,C3,CC,CC, CC, CC, CC, CC, 44, CC, CC, CC, CC, 88, 1A3B 
289 DATA 41,C3,C3,C3,C3,82,C9,C3,C3,C3,C3,C3,C9,C3,C3,C3,25B4 
285 DATA C3,C3,C9,C3,C3,03,C3,C3,C9,C3,C3,C3,C3, C3, C9, C3, 31F6 
298 DATA C3,C3,03,03,C9,03,C3,C3,C3,C3, C9,C3,C3,C3, C3, C3, 3E32 
295 DATA C9,C3,C3,C3,C3,C3,C9,C3,C3,C3,C3,C3,C9,C3,C3,C3, 4A74 
389 DATA C3,C3,C9,03,03,C3,C3,C3,C9,C3,C3,C3, C3, C3, C9, C3, 56B6 
385 DATA C3,C3,C3,C3,C9,C3,C3,C3,C3,C3,C9,C3,C3, C3, C3, C3, 62F2 
319 DATA C9,C3,C3,03,03,C3,C9,C3,C3,C3, C3,C3,C9,C3,C3,C3, 6F34 
315 DATA C3,C3,C9,C3,03,C3,C3,C3,C9,C3,C3,C3,C3, C3, C9, C3, 7B76 
329 DATA C3,C3,C3,C3,C9,C3,C3,C3,C3,C3, 14,3C, 3€, 3C, 3C, 28, 8446 
325 DATA 41,03,03,C3,C3,82,69,C3,C3,C3,C3,C6,69, C3, C3, C3, 8F82 
339 DATA C3,C6,69,C3,C3,C3,C3,C6,69,C3, C3, C3,C3,C6, 69, C3, 9A2D 
335 DATA C3,C3,C3,C6,69,C3,C3,C3,C3,C6,69,C3,C3,C3, C3, C6, A5B2 
349 DATA 69,C3,C3,C3,C3,C6,69,C3,C3,C3,C3,C6,69,C3,C3,C3, BADA 
345 DATA C3,C6,69,C3,C3,C3,C3,C6,69,C3,C3,C3,C3, C6, 69, C3, BCS5 
359 DATA C3,C3,C3,C6,69,C3, C3,C3,C3,C6, 69,C3,C3,C3,C3,C6,C78A 
355 DATA 69,C3,03,C3,C3,C6,69,C3,C3,C3,C3,C6,69, C3, C3,C3,D2B2 
369 DATA C3,C6,69,C3,C3,C3,C3,C6,69,C3,C3,C3,C3,C6, 69, C3, DDDD 
365 DATA C3,C3,03,C6,69,C3,C3,C3,C3,C6, 14, 3C, 3C, 3C, 3C, 28, E653 
379 DATA 41,03,03,C3,C3,82,69,C3,C3,C3,C3,C3,69,C3,C3,C3,F18C 
375 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3,FC2E 
389 DATA C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3, 87AA 
385 DATA 69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3, C3, C3, 12CC 
399 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3, 1DEE 
395 DATA C3,C3,03,C3,69,C3,C3,C3,C3,C3,69,C3,C3, C3, C3, C3, 2964 : 
499 DATA 69,C3,03,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,348C | 
495 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69, C3, 3FAE 
419 DATA C3,C3,03,C3,69,C3,C3,C3,C3,C3, 14,3C,3C, 3C, 3C, 28, 481E 
415 DATA 41,03,03,C3,03,82,69,C3,D2,C3,C3,C3,69,C3,D2,E1,5313 
429 DATA C3,03,69,C3,93,E1,C3,C3,69,C3, 76,F8,C3,C3,69,C3,5E83 
425 DATA 76,F8,03,C3,69,C3, 76,F#,C3,C3,69,C3,33,F8,C3,C3,68E4 
439 DATA 69,C3,93,E1,C3,C3,69,C3,83,C9,C3,C3,69,C3, C3, 46, 733D 
435 DATA C3,C3,29,83,03,83,CC, CC, 60, CC, 43,C3,83, 83,69, C3, 7B3D 
449 DATA 89,C3,C3,C3,69, C3, C6, 43, C3,C3,69,C3,D2,63,C3,C3,85B1 | 
445 DATA 69,C3,F8,33,C3,C3,69,C3,F8,B9,C3,C3,69,C3,F4, B9, 9#BA 
459 DATA C3,03,69,C3,F#,B9,C3,C3,69,C3,D2,E1,C3,C3,69,C3,9C2C 
455 DATA D2,E1,C3,C3,69,C3,C3,E1,C3,C3, 14, 3C, 3C, 3C, 3C, 28, A4E7 
469 DATA 41,03,C3,C3,C3,82,69,C3,C3,C3,C3,C3,69,C3,C3,C3, AFAS 
465 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,33, 27,8F, C3, 69,93, B8B2 
479 DATA 33,27,8F,C3,69, 33, 33,27,8F,C3,69,33,CF,CF,CF,C3,BF72 ; 


475 DATA 39,67,03,C3,C8,C3, 39,63,C3,C3,C3,C1,39,63,C3,C3,C8E3 


489 DATA C2,C3,39,63,C3,C3,C3,C1,39,63,C3,C3,C3,C3,39,33,D222 
485 DATA C3,C3,C2,C1,69, 33,33, 27,9F,C2,69, 33,33, 27, 8F, C1, D8BB 

498 DATA 69,93, 33,27, 8F,C2,69,C3,CF,CF,CF,C3,69,C3,C3,C3,E1ED 
495 DATA C3,C3,69,C3,03,C3,C3,C3,69,C3,C3,C3,C3, C3, 69, C3, EDSF 
589 DATA C3,C3,C3,C3,69,C3,03,C3,C3,C3, 14,3C, 3C, 3C, 3C, 28,F57F 
595 DATA 41,03,03,C3,03,82,69,C3,C3,C3,C3,C3,69, C3, C3, C3, 8838 
519 DATA C3,C3,69,C3,C3,C3,C3,C3,69,C3,C3,C3,C3,C3,69,C3, BB5SA 
515 DATA C3,C3,03,C3,69,CF,CF,CF,C3,C3,69, 8F, 1B, 33,63, C3, 14AE 
528 DATA 66,8F,1B,33,33,C3,69, 9F, 1B, 33, 33,C3,68,C1,C3,C3, 1AD4 
525 DATA 33,63,69,C3,C3,C3,93,63,68,C3,C3,C3,93, 63, 69, C1,23E3 
539 DATA C3,C3,93,63,68,C3,C3,C3,93,63,69,C8,C3,C3, 98,63, 2DB3 
535 DATA 69,CF,CF,CF,33,C3,69,8F, 1B, 33,33, C3, 69, BF, 1B, 33, 3481 
548 DATA 63,C3,69,8F, 1B,33,C3,C3,69,C3,C3,C3,C3,C3,69, C3, 3CD7 
545 DATA C3,C3,C3,C3,69,C3,C3,C3,C3,C3, 14, 3C, 3C, 3C, 3C, 28, 4547 
558 DATA 59,89,89,09,89,09,90,08,95,05,95,95,08,88,08,08, 4547 
555 DATA 99,08,05,08,09,95,08,96,09, 08,09, 08,90,06,08,09,4547 
568 DATA 99,89,80,06, 69,08, 69,08, 98,08, 65,95,08,959, 08,08, 4547 
565 DATA 99,98,09,98,98,68,00,88,08,68,09,89,90,89,09, 99, 4547 








579 DATA 88,89,89,09,89,00,09,08,09,99,08,08,08,68,99,88,4547 
575 DATA 86,98, 00,08,08,00,55, ÀA,08, 80,08, 89,FF,FF,98,09, 4844 
588 DATA 88,55,EB,D7, AA, 99, 09,55,C3,C3, AA, 98, 08,55,C3,C3, 4F65 
585 DATA AA,99,09,55,EB,D7, AA,88,09,88,FF,FF,99,09,98,08,54CE 
598 DATA 55,AA,89,89,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,61C1 
595 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,99, 99,55, AA, 6EB4 
699 DATA 88,89,80,88,FF,FF, 80,98, 99,55, EB,D7, AA, 98,98,55, 73C8 
645 DATA C3,C3,AA,98,09,55,C3,C3, AA, 88, 88,55,EB, D7, AA, 89, 7B3E 
619 DATA 88,89,FF,FF,89,09,09,09,55, AA, 68,98, 08,68,89,98,7E3B 
615 DATA 99,98,90,95,09,00,08,969,00, 00,09, 60,60,60,00, 60, 7E3B 
629 DATA 98,89, 90,99,80,09, 09,09, 60,09, 08,08, 08,68, 08,98, 7E3B 
625 DATA 99,98, 00,66,09,60,00,88,08,80,00,80,00, 80,09, 9D, 7E3B 


638 DATA 59,80,90,09,99,09,90,05,00,08,99,99,08,08,08,98,7E3B 


635 DATA 96,98, 09,98, 00,80,09,99,09,96,08, 60,09, 85,09; 69, 7ESB 
649 DATA A4, 89,89, 99,89, 09, AA, 06, 086,09, 99,98, AA, 98, 08,98,8039 
645 DATA 99,98, AA,09,09,98,08,88, AA, 60,98,80,69, 69, AA, 89,8237 
659 DATA 88,99,89,80, AA, 09,09,06,99,09, ÀA,55,08,08, 08,68, B3E8 
655 DATA AA,FF, AA, 08,08, 8, AA,EB, AA, 88,09, 80,FF,C3,D7, 89, 8BBB 
669 DATA 88,89,FF,C3,07,99,09,08,FF,C3,D7,08,98,88,FF,C3,91FF 
665 DATA D7,99, 09,98, AA,EB, AA, 80,99, 88, AA,FF, AA, 88,80, 00,9766 
678 DATA AA,55,89,60,89,99, AA, 09, 00,09, 08,98, AA, 08,68,98,99BB 
675 DATA 89,68, AA, 06,09, 08, 08,68, AA, 60,06, 88,00, 89, AA, 89, 9BB9 
689 DATA 98,99,89,00, AA, 09, 00,08, 68,99, AA, 69, 05,08, 68,08,9D£D 
+ 665 DATA 99,09,00,00,09,55,00,60,08,90,00,55,89, 90,69, 00,9DB7 
: 699 DATA 89,55,99,80, 80,09, 09,55, 09, 08, 98,98, 08,55, 08, 98,9EB6 
“ 695 DATA 96,88,09,55,98,08,08,85,09,55,09, 88,89, 88, AA, 55, AS5F 
: 789 DATA 89,88,89,55,FF,55,09,98,09,55,D7,55, 08,88, 09,EB, A474 
785 DATA C3,FF,09,99,08,EB,C3,FF,09,89,88,EB,C3,FF,99, 88, ABOS 
19 DATA 88,EB,C3,FF, 89,09, 09,55, D7,55,98,98,68,55,FF,55,B167 
715 DATA 89,98, 00,88,AA,55,06,90,08,66,98,55,69, 89,08, 00,B2BB 
29 DATA 96,55, 96,89, 89,06,00,55,08, 69, 90,99, 08,55,08,08,B3BA 
725 DATA 06,08,09,55,08,69,09,88,08,55,88,88,08,00,90,55,B4B9 
39 DATA 99,89,88,88,80,98,94, 26,59, 6, 19,98, 84,26, 59, A6,B72C 
735 DATA 19,98,04,9C,59, A6,8C, 88,84, 8C,59, A6, 8C, 88, 94, BC, B9A3 
749 DATA 59, A6, 8C, 88, 84, 8C, 59, A6, 8C, 98, #4,8C,9C, 5C,8C, 88, BC15 
745 DATA 84,80, 8C,8C, BC, 88,94, 80,80, 8C, 0C, 96, 84, BC, 4D, 8E, BD78 
5 759 DATA BC, 86,84, 8C, AD, BE, 8C, 98, 84, 9C, 4D,8E,9C, 98,94, 90, BFOA 
8 755 DATA 4D,8E,#C,98,94,8C,8C,8C,0C, 88,84, 8C,8C, 8C, AC, BB, C181 
8 769 DATA B4,FC,FC,FC,FC,98,94,FC,FC,FC, FC, 98,94, 33, 33,33, C996 
à 765 DATA 33,98, 84,33, 33, 33,33, 58,94, 33, 33, 33, 33, 98, 84, 33, CBBB 
A 770 DATA 33,33, 33,98, 84, 33, 33,33, 33,08, 99,98, 08,98, 08,98,CD31 
775 DATA 45,CF,CF,CF,CF,8A,45,9E, 3C, 3C,6D, BA, 45, 3C, 3C, 3C, D487 
“788 DATA 30, 84,45,3C, 3C, 3C, 30, 8A, 45, 3C, 3C, 3C, 3C, BA, 45, 3C, D94C 

785 DATA 3C,3C,3C,8A, 45,30, 3€, 30, 3C, 8A, 45, 3C, 3C, 3C, 3C, BA, DESB 
798 DATA 45,30, 3C, 3C, 30, BA, 45, 3C, 3C, 3C, 3C, 8A,45,3C, 3, 3C,E27F 
795 DATA 3C, 8A, 45,3C, 3C, 30, 3C, 8A, 45, 3C, 3C, 3C, 3C, BA, 45,9E, E7AG 
889 DATA 3C,3C,6D,84,45,CF,CF,CF,CF,8A, 88,98, 45,6A, 68, 68,EDEF 
885 DATA 89,98,CF,CF,89,88,CF,CF,CF,CF,CF,CF, DE, 9E,9E,9E,F71F 
818 DATA EF,6D,DF,6D,6D,6D, 4D,9E, DF,9E,9E,9E, 4D,6D,8E,6D,FFFA 
815 DATA 6D,6D,EF,9E,DF, 1C,3C, 7D,6D,6D,CF,CF,CF,CF,CF,CF,89C9 
829 DATA 45,CF,CF,CF, CF, BA, 45,8E, #C, 6C, 4D, 8A, 45,58, A4, F8, 11C7 
825 DATA 44,84, 45,58,58,8C,8C, 8A, 45, 8C,8C, 8C, BC, BA, 45, BC, 15DC 
838 DATA 8C,8C,8C, BA, 45,58, 8C, AC, 8C, BA, 45,8C,8C, 8C, BC, BA, 18D4 
835 DATA 45,8C,8C,8C,8C, 84, 45,8C,8C, SC, BC, BA, 45, 8C, AC, 8C, 1B3B 
849 DATA BC, 8A,45,8C,8C, 8C, 8C, BA, 45,90, 8€, 8C, 8, 8A, 45, BE, 1EA2 
845 DATA 8C,8C, 4D, 84, 45,CF,CF,CF,CF, 84,89, 95, 45, 8A, 99, 89, 246B 
858 DATA 959,89,CF,CF,89,98,CF,CF,CF,CF,CF,CF,DE,9E,9E,9E, 2D9B 
855 DATA EF,6D,DF,6D,6D, 6D, 4D,9E, DF,9E,9E, 9E, 4D, 6D, 8E, 6D, 3676 
868 DATA 6D,6D,EF,9E, DF, 1C, 3C, 7D,6D,6D,CF,CF,CF,CF,CF,CF,4945 



















| 
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665 DATA 59,A8,F8,F8,B4, 78,B4,78,F8,F8,59, AB,58, A4, 84,88, 4945 
879 DATA 96,84,90,09,89,09,09,00,09,09,09,90,08,99,08,98, 4951 
875 DATA DD,5E, 88, DD, 56,81, DD, 6€, 92, DD,66, 83,86, 88, C5, ES5,588B 
889 DATA 86,92, 14, 77,23, 13, 19,FA,E1,CD, 26,BC, C1, 18,EF, C9, 58FD 
885 DATA 94,9C,94,8C, 44,44, 44,44,51,51,51,51, 11,33, 89, 89,59B5 
899 DATA 99,96, 84,86, 89,68, 99,88, 89, A2, 85, A2, 11,33,08,68,5C61 
895 DATA 94,40, 94,94,08,44,08, 44,69, À2,51, 88, 11,33, 99, 09, 5E38 
988 DATA 54,8C,84,84,99, 44,99, 44,99,F3,99,51, 11,33,08,08,6868 
985 DATA 59,94,08,0C,08,CC,44,44,51,F3,99,51,09, 11,99, 09, 636A 
918 DATA 94,8C,84,989,44,99,89,CC,08,51,51,51,11,33,98,88,65C5 
915 DATA #4,8C,84,84,44,88,44,CC,51,51,51,51, 11,33, 89, 59, 6889 
929 DATA 54,80, 99,94, 89, 44, 09,88, 08, A2,51, 98, 11,98, 98,65, GA9D 
925 DATA #4,8C,64,94,44,44,44,CC,51,51,51,51, 11,33, 99, 98, 6DD5 
939 DATA 84,8C,84,84,44, 44, 44,CC,98,51,88,51,11,33,98, 98, 796B 


935 DATA 86,09, 00,99,08,65,08,90,08,6A,06, 66,60, AB,09,09,711D 
- 849 DATA 99,89,89,99, 99,09, 09,08, 08, 0A, 69,08, 68,AB,54, 89, 7223 


945 DATA 99,99, 00,08, 06,99,09,86,00, 80,08, 5A, 99, AB, 88, 69, 72D5 
959 DATA 99,89,89,09, 89,09, 09,09, 08,69, 88, 6A, 98, AB, 54,99, 73DB 
955 DATA 86,22, 99,22,58,99,08,90,08,88,00, 66,00, 00,00,00, 746F 
969 DATA 88,22,11,11,59,59, 89,58, 98, 0A, 98,98, 6B, A8,08,09, 7655 
965 DATA 99,22, 99,22, 68, A8,08,A8,68, SA, 68,69, 89, AB, 66, 66, 788B 
978 DATA 11,33,11,33,59,58,59,59,95,8F, 85,85,54,54, 69,08, 7819 
975 DATA 11,33,11,33,58,58,58,58,05, 8A,85,85,54, FC, 08, 08, TEA 
988 DATA 11,33,11,33,58,98,58,98,05,98,95,08,54,FC, 68,98, 88CC 
985 DATA 11,22,11,33,58,58,58,58,85,85,85,85,54, FC, 89, 69, 83E7 
998 DATA 11,33,11,33,59, 09, 59,99, 95, 0A,05,98,54,FC, 08,65, 8673 
995 DATA 11,33,11,33,58,98,58,88,05, 8A,05, 69,54, 89,09, 66, 8883 
1898 DATA 11,33,11,33,58,58,58,98,95, 99,95,85,54,FC, 99,88, BADA 
1985 DATA 11,11,11,11,58,58,59,59,85, 8F,05, 85,54, 54,09, 90, 8D24 
1818 DATA 11,33,99,22, 68, AB, 08, AB,08,9A,08,8A,54,FC, 09,89, 992E 
1915 DATA 11,33,09, 22,88, A6,98, A9,88, A, 08, 5A,54, A8,08,08,92E4 
1828 DATA 11,11,11,11,58,58,58,A8,05, 5A,05, 85,54, 54, 08,88, 9579 
1925 DATA 11,88,11,88,59,88,50, 68,05, 89,05, 89,54, FC, 08, 89,9795 
1939 DATA 11,11,11,33,58,F8,58,58,95,85,05,85,54,54, 09,86, 9A97 
1835 DATA 11,11,11,11,59,F8,59, FD,85,0F,05,05,54,54,98,08,9E21 
1848 DATA 11,33,11,11,58,58,58,58,05, 85,95, 95,54, FC, 89,88, A12B 
1945 DATA 11,33,11,33,58,58,59,59,85, 0F,05, 69,54, 09, 69, 99, A369 
1859 DATA 11,33,11,33,58,58,58,58,85,95,95,85,54, FC, 89, AB, A734 
1855 DATA 11,33,11,33,59,58,59, 59,85, 8A,95,85,54,54, 08, 89, A9BD 
1869 DATA 11,33,11,33,58,88,58,98,05,6F,09,85,54,FC, 99,88, AC4E 
1865 DATA 11,33,11,33,99, A8, 88, A9,08, 8A, 09, OA, 98, AB, 95, HA, AED2 
1878 DATA 11,11,11,11,58,58,58,59,85,85,95,95,54,FC, 89, 89,B1BA 
1975 DATA 11,11,11,11,59,58,59,59,85, 85,05, 85,08, AG, 09,08, B3FA 
1888 DATA 11,11,11,11,58,58,58,58,85,9F,95,9F,54,54, 99,88, BGAE 
1985 DATA 11,11,11,11,58,58,88,A8,88, 8A,05,05,54,54, 08, 68, BBBE 
1898 DATA 11,11,11,11,58,58,08, A8, 98, 8A,99, BA, 88, AB, 99,88, BACE 
1895 DATA 11,33,89,11,99,50,88, A6,08, 8A,95, 09,54, FC, 09, 58, BD72 
1198 DATA 69,88,09,99,08,98,09,99,08, 696,08, 08,88, 80,09, 89,BD72 
1185 DATA 7C,C6,98,67,D8,D5,11,58,C8, 19,D1,C9, 98, DD, SE, #8, C4D7 
1118 DATA DD,56,91,DD,6E, #2, DD, 66,93, 86, 18, CD, 19, BD, C5,E5, CC#9 
1115 DATA 66,86, 14, 77,13, 23,19, FA,E1, CD, 98, AB, C1, 18,EF, C9, D2BD 
1129 DATA 99,11,99,9D,DD,6E,88,DD,66, 91,86, 88, C5, ES, 86, 82, D7BA 
1125 DATA 1A,AE,77,13,23,18,F9,E1,CD, 88, A8, C1, 18, EE, C9, 89, DFSE 
1139 DATA 99,08,09,68,09,08,08,68,09,08,09,08, 80, 80,86, 88, DFSE 
1588 CLS:PRINT * FICHIER LANGAGE MACHINE CORRECT. .." 

1518 PRINT:PRINT:PRINT 

1528 PRINT "UNE TOUCHE POUR LA SAUVEGARDE... ." 

1538 CALL &BB18 

1548 SAVE "virusbin",b,49378,&CES 
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Grâce au programme qui vous est proposé ici, vous allez 
pouvoir amener votre CPC favori et son BASIC Locomotive 
au niveau des fameux PASCAL ou C. 

Qu'est-ce qui manque à notre cher BASIC et qu'on retrouve 
chez le C, le PASCAL et même certains BASIC de haut 
niveau comme le QUICK BASIC ? Les ceusses qui 
connaissent ces langages doivent avoir trouvé la réponse. 
Les autres doivent en avoir une idée grâce au titre de 
l’article : les variables locales et, via elles, la récursivité. 


NOTIONS SUR LES FONCTIONS 
ET PROCEDURES 


Je ne vals pas faire Ici un cours de PASCAL ou autre, 
mais Je vais au moins présenter vite fait des notions 
utiles, à savoir les fonctions et les procédures, ainsi que 
les variables locales. Ceux qui connaissent déjà n’ont 
qu'à sauter au paragraphe suivant. 


En général un programme PASCAL est composé d'un 
module principal, précédé de fonctions et procédur- 
res. Peu de choses différencient ces trois catégories : 


- Le module principal est celul qui est exécuté au 
démarrage et par lequel les fonctions et procédures 
sont appelées, directement par lui-même, ou entre 
elles. 


- Une fonction est à elle-seule un véritable program- 
me, qui rend par son nom un résultat d'une certaine 
nature. En cela une fonction peut être directement 
utilisée dans des formules, des tests, voire comme ar- 
gument d'une autre fonction. Les fonctions sont simi- 
laires par leur apparence aux fonctions du BASIC du 
CPC "FN xx”. Il y a des arguments en entrée et on a 
un résultat en sortie. Seulement elles peuvent compor- 
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ter autant de lignes que l’on veut et surtout elles peu- 
vent s'appeler elles-mêmes : c'est ce qu'on appelle 
la récursivité. Un exemple : 


On définit ainsi la fonction “factorielle”, notée *l” : 
pour n entier, nl=n°(n-1)°(n-2)°...°3°2"1 

ainsi 31=6, 51=120, 101=3 628 800 

réécrivons la fonction : 

nl=n°(n-1)°(n-2)°...°3°2°1 

nl=n°((n-1)°(n-2)°...°3°2°1) 

nl=n°(n-1) | 

Et voilà la récursivité. La fonction factorielle définit nl 
comme le produit n°(n-1), avec (n-1) I=(n-1)°(n-2) | 

Et ainsi de suite jusqu'à la fin, qui se fait en écrivant 
que 1I=1, 


- Une procédure est tout à fait similaire à un sous- 
programme du BASIC du CPC. En plus on peut lul 
transmettre des argumenis en entrée, et la procédure 
peut retoumer si on le veut des valeurs en sortie via 
des variables appartenant à cette liste d'arguments 
en entrée. Vous m'avez suivi ? Une procédure a la 
possibilité comme une fonction d'être récursive. 


Quelle est la caractéristique importante des fonctions 
et procédures, qui autorise la récursivité ? C'est l’exis- 
tence de variables locales : dans le corps d’une fonc- 


tlon ou d'une procédure, on définit des variables qui 
n'ont de valeur qu'à l'Intérieur même de la fonction 
ou la procédure. Ainsi la valeur de la variable “I” dan 
sle module principal ne sera pas modifiée par l'utillsa- 
tion de cette variable dans une fonction ou une pro- 
cédure (sauf si c'est désiré). Comment réallse-t-on cela 
grosso modo ? Eh bien c'est comme si on stockait lors 
de l'entrée dans la routine appelée les valeurs à ce 
moment des variables utilisées dans la routine. Au re- 
tour de la routine on réinjecte les anciennes valeurs 
dans les variables. 


COMMENT FAIT-ON 
EN BASIC LOCOMOTIVE ? 


Le seul moyen de créer avec le BASIC du CPC un 
module relativement Indépendant du corps principal 
du programme, c'est de l'écrire sous forme de sous- 
programme, qui est appelé par un GOSUB et qui se 
termine sur Un RETURN. 


Pour une procédure, Il est évident que l'adaptation 
est Immédiate. Pour une fonction, ce n'est pas le cas 
et |! faut en fait la transformer en procédure. Cela 
peut compliquer parfois les choses, mais c'est toujours 
possible. Il suffit de transmettre en sortie, via une varia- 
ble, le résultat. 


La marche à suivre est la suivante : 


Pour l'appel : 1) Indication des arguments d'entrée 
2) Appel du sous-programme 


Dans la procédure : 1) Indication des variables locales 
2) Lecture des arguments 
d'entrée 

e 

e 

e 
3) Indication des arguments 
de sortie 
4) Restauration des variables 
locales 
5) Retour de sous-programme 


Retour d'appel : Lecture des arguments de sortie 


Tout cela se fait grâce à des instructions RSX décrites 
dans les paragraphes suivants. 


INITIALISATION 


Pour stocker les valeurs des variables locales avant 
leur utilisation dans une procédure et les valeurs à 
transmettre en entrée ou sortie, Il faut réserver de l'es- 
pace en mémolre. C'est trivial mais Il fallait le dire. On 
va, à cet effet, créer une plle (stack en anglais) spé- 
clale. La commande est : ISTACK, debplle, longplle 


"debplle” est l'adresse de début de ka plie et “longpl- 
le” la longueur de la plie. Si jamais la plie déborde sur 
la routine, le message ‘Illegal stack” s'affiche et est 


25 


suivi à la ligne suivante du message “Cannot CONTI- 
nue”. En cours de programme cela provoque un 
“Break” et donc un arrêt. Ce deuxième message d'er- 
reur standard du BASIC s'affiche après tout message 
spécifique des RSX, dans le but d'arrêter tout pro- 
gramme. 


INDICATION 
DES ARGUMENTS D'ENTREE 


Commande : IGIVE.typ,@var.typ2,@var2…. 

On transmet les arguments via des variables. Cela se 
fait par palre de valeurs. "typ” est ka longueur en octets 
de la variable transmise, soit 2 pour un entier, 5 pour 
un réel, 3 pour un pointeur de chaîne. "@var” (lire 
“arobas var”) transmet l'adresse de la variable “var”. 
Cette commande empile les valeurs indiquées 
(GIVE=donne) depuis le haut de la plle vers le bas, 
comme ceux qui liront le listing en langage d'assem- 
blage s'en rendront compte. En ce qui concerne un 
tableau, Il faut Indiquer la longueur pour tous les élé- 
ments à transmettre et l'adresse du premier élément 
transmis. 


INDICATION 
DES VARIABLES LOCALES 


Commande : IIOCAL.typ.@var.typ2,@var2.…. 

Les arguments de cette commande sont définis exac- 
tement comme ceux de la précédente. Cette fois-ci, 
les valeurs des variables sont empllées depuis le bas 
de la pile vers le haut. 


LECTURE 
DES ARGUMENTS D’ENTREE 


Commande : IENDLOCAL.typ.@var.typ2,@var2.... 

Il s'agit de l'injection dans les variables locales de 
leurs valeurs avant l'appel de la procédure. La liste 
des arguments doit être identique à celle de la com- 
mande ILOCAL. Aussi le plus simple est de recopler 
grâce à ka touche COPY cette liste. 


LES MESSAGES D'ERREURS 


Des messages d'erreurs ont été prévus pour éviter des 
catastrophes. || y a en fait à chaque fols deux messa- 
ges : Un propre aux nouvelles commandes, suivi du 
message du BASIC, "Cannot CONTinue”, ce afin de 
provoquer l'arrêt d’un programme. 


lllegal stack : la pile définie mord sur les RSX. Cela 
apparaît pour de mauvaises valeurs après ISTACK ou 
blen lorsqu'on utilise une des autres commandes alors 
qu'une plle correcte n’a pas encore été définie. 


No argument : on utilise une des RSX sans argument ! 


Odd number of arguments : on a transmis un nombre 
impair d'arguments, alors que toutes les fonctions en 
réclament un nombre pair. 


Stack full : I! n’y a plus de place dans ka pile pour 
stocker des valeurs avec un ILOCAL ou un IGIVE. 
Aucune des valeurs de la liste de la commande n'est 
stockée. En fait (pour les curieux), le pointeur sur le 
dernier élément n'est pas réactuallsé. Tout se passe 
comme sl rien n'avait été fait. Il faut accroître la taille 
de la plle. 


Stack empty : on essale de retirer des Valeurs de la 
plle avec un IENDLOCAL ou un IGET, alors qu'il n'y a 
plus ren à retirer. C’est soit une erreur dans le nombre 
d'arguments, soit un retrait de trop qui est effectué. Il 
faut là trouver l'erreur. Les valeurs sont retirées et iIn- 
Jectées dans les variables aussi loin que possible, mals 
Ici aussi le pointeur n'est pas réactualisé. Tout se passe 
comime sl rlen n'avait été fait. 


ATTENTION : un erreur à coup sûr fatale n'est pas dé- 
tectée. || faudrait être très distralt pour la commettre, 
alors autant être puni par un plantage | I! s'agit de 
l'indication “0” pour le type (c'est-à-dire la longueur) 
d'une entité. Les spécialistes comprendront qu’un 0 
dans BC pour un LDIR peut faire très mal. 


LE CHARGEUR BASIC DES RSX 


Le programme BASIC *CHARGEUR.BAS” crée le pro- 
gramme binaire *LOCAL.BIN” définissant les RSX. Ce 
dernier est placé à l'adresse ad, modifiable à loisir 
(c'est le programme BASIC qui fait tout). On initialise 
les RSX par *CALL ad”. La sauvegarde du fichier binali- 
re se fait automatiquement après le *"pokage”. 


Le programme LOCAL.BIN est adapté au type de CPC 
(464, 664 ou 6128), ce pour la génération du message 
d'erreur "Cannot CONTinue”, qui nécessite un saut en 
ROM. Tant qu'on est sûr de ne pas avoir d'erreur, la 
routine est valable pour tout type de CPC. Sinon il faut 
relancer le programme chargeur sur le type désiré 
d'Amstrad. 


QUELQUES REMARQUES 
SUR LA PROGRAMMATION 


- Les variables, dont on transmet l'adresse dans la liste 
des arguments de ILOCAL, IGIVE, IENDLOCAL et IGET 
dolvent auparavant avolr été initialisées. Cela signifie 
qu'il faut d'abord leur avoir donné une valeur, afin 
que le système d'exploitation leur ait attribué une 
adresse en mémoire. Sans quol elles sont véritable- 
ment inconnues au bataillon et le message d'erreur 
*Improper arguement” est délivré. Une manière prati- 
que d'initialiser une variable, sans s'engager sur le 
contenu à lul attribuer, est l'auto-assignation. Kesaco ? 
Par exemple : “a$=a$", "r=r", "%=I%". 


- L'initlallsation de variable peut se falre n'importe où 
avant l'utilsation de la variable comme argument. 
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Alns! pour le module principal tout au début. Pour les 
procédures, juste avant la commande ILOCAL. C'est 
dans ce cas que c’est le plus clair, mails rien n’empé- 
che de tout Initiallser en début de programme, ce qui 
fait gagner quelque temps lors de l'exécution des pro- 
cédures. 


- La pile n’a pas besoin d'être très importante. Dans la 
plupart des cas 1 Ko suffit. Il est facile de déterminer la 
taille nécessaire. || suffit de compter le nombre d'oc- 
tets stockés à chaque appel de procédure et de le 
multiplier par le nombre de niveaux d'appels de la 
procédure. On le falt pour toutes. || faut ajouter à cela 
le nombre maximum d'octets occupés par une trans- 
mission de valeurs par IGIVE. 


— Pour les distraits, I! est signalé qu'il est plus prudent 
de placer la plle au-dessus du haut de la mémoire 
réservée au BASIC (au-dessus du HIMEM). Sinon Il ris- 
que d'y avoir du cafoulllage si des variables viennent 
se balader dedans. 


- La manipulation de chaînes est délicate car àa$ 
(par exemple) renvole l'adresse de trois octets, dont 
le premier est à longueur de la chaîne et les deux 
suivants son adresse. On ne peut opérer des empila- 
ges et dépllages de chaînes qu'en maîtrisant parfali- 
tement leurs longueurs, sinon bonjour les dégâts | 


- Il existe une limite au nombre de niveaux de sous- 
programmes : pas plus de 85 dans le meilleurs des cas. 
Le BASIC dispose en effet d’une pile personnelle de 
512 octets. Un GOSUB en consomme 6, un WHILE-WEND 
7, Un FOR-NEXT avec entiers 16, un FOR-NEXT avec 
réels 22. De plus la pile est utillsée pour stocker des 
valeurs intermédiaires dans des calculs ou des évalua- 
tons. Une plle BASIC pleine se traduit par un magistral 
*MEmory full”, qui interdit même la lecture des valeurs 
des variables. || faut passer par un CLEAR. 


LES PROGRAMMES 
DE DEMONSTRATION 


Ces programmes sont suffisamment commentés pour 
être compris à la seule lecture du listing. Il est Juste 
supposé que le programme binaire des RSX a été 
chargé et que les RSX ont été initialisées. Sinon le la- 
conique “Unknown command” pointera son nez. Tous 
ces programmes font appel à la récursivité, qui donne 
toute sa valeur à la possibilité de définir des variables 
locales. Ils sont donnés ci-après en ordre croissant de 
complexité, sans pourtant être complexes. 


FACT : calcul de factorielle 

Le processus de calcul a déjà été présenté : 
Nlan°(n-1)! 

On arrête à 11=1 


PUISS : calcule “X pulssance N°. 
XTN=X"(XT(N-1)) 
On arrête à XTO=1 


LEGENDRE : calcul de polynôme de Legendre, P(n)(x) 
P(0)(X)=1 


P(1)609=X 
P(n)69=((2"n-1)"P(n-1)09-(n-1)"P(n-2)%))/n 


ARBRE : dessin d'arbre ternalre. C'est la simple traduc- 
tion en BASIC du programme en PASCAL “ARBRE”, dû 
à Alain Lambert et publié dans le SVM n°46 de Janvier 
1988 (cf pages 89-92). C'est le seul des 4 programmes 
qui soit très difficile à écrire sans récursivité. Pour les 
autres de simples procédés itératifs suffisent. C'est le 
plus beau à voir. Essayez 90,0.6.0.8.0.7,40.-4,1,7.. 


DETOURNEMENT 
DE COMMANDES 


- Echange de variables : on peut aisément réaliser un 
échange de valeurs entre deux variables, sans passer 
par une variable intermédiaire. Pour échanger les 
contenus de a% et b*%, Il suffit de faire : 
IGIVE.2,@a%.2,@b% 

IGET,2,8b%,@a% 

De même avec a$ et b$ : 

IGIVE3,@a$,3,@b$ 

IGET,3,@b$A,3,@a$ 


- Décalage dans un tableau : supposons qu'on veuille 
Insérer un nombre x en 25e position dans le tableau 
de réels tab, qui compte 80 éléments du n°1 au n°80. 
Attention à ne pas décaler en dehors du tableau : 
IGIVE,56°5,@tab(25) 

tab(25)=x 

IGET,56"5,@tab(26) 

De même avec le tableau de chaînes str$, où on 
Insère a$. À noter qu'ici on ne réalise l'assignation 
qu'après avoir décalé. Cela supprime le risque de dé- 
calage des chaînes préexistantes lors de l’assignation : 
IGIVE,56°3,@str$ (25) 

IGET,56°3,@str$(26) 

str$(25)=a$ 

Le gain de temps peut être ainsi considérable. 


- On peut stocker par IGIVE des variables numériques 
ou alphanumériques, pour une sauvegarde sous for- 
me binaire. Leur chargement, puis leur récupération 
par IGET est beaucoup plus rapide. Il faut aussi dans 
ce cas conserver le pointeur de pile WARPT (cf Ilsting 
du code source). Rien n'empêche de procéder avec 
ILOCAL. On peut faire une sauvegarde provisoire d'une 
portion de la mémoire, etc. 


CONCLUSION 


J'espère que vous avez tout compris. À vous désor- 
mais le fi rapide comme avec le procédé *Quick- 
sort”, les calculs de déterminants, les fractales déliran- 
tes. Récursivement vôtre | 


ne A : 


Lo VI 


à 27 NN 


ASS 
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GESTION DE FICHIERS 


Gérez, classez, triez vos informa- 
tions grâce à cette superbe GES- 
TION DE FICHIERS. D’utilisa- 
tion simple et conviviale mais aux 
performances remarquables ce lo- 
giciel vous permet d’exploiter au 
mieux votre CPC 6128. 


Quelques caractéristiques 


- Saisie pleine page. 

Recherches multicritères, tri. 

Masques d’éditions entièrement paramétrables (vous 

placez les champs où vous le souhaitez sur écran ou 

imprimante) 

- Filtres logiques. 

- Sorties écran, imprimante et fichier. 

- Champs de type date, logique ou caractères. 

- Gestion de disquette interdisant toute erreur de ma- 
nipulation. 

- Commandes par barre de menu 

- Manuel détaillé de 25 pages. 


SUPPRESSION D'EMRECISIRENENT 





OC WT ) EUEOR XOR 


2 (>) 2: 0) 








evevu--n--[ricnmimens meme: Lox:mmimnn. no | 





NO ON  XOR (DEL) LECTEUR 41 


EN CADEAU NOTRE LOGICIEL "BIORYTHMES’ 
‘Sur la face B de votre disquette Gestion de Fichiers 
| Pourtoute commande passée avant le 31/01/91 

: ë {Le cachet de la poste faisant foi). > 


à retourner 
MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 
téléphone : (1)69.21.61.65 / minitel : (1) 69.24.49.08 


(RETURN) 











Nom : Prénom : 
Adresse : 
Code Postal : Ville : 


Q Je commande "GESTION DE FICHIERS’ He 
CPC 6128) au prix de 310 Francs (port compris) 

(Je commande avant le 31/01/91, ma disquette 
comportera donc le logiciel BIORYTHMES. 

Q] Veuillez m'envoyer votre catalogue présentant 
l'ensemble des produits MICROLOGIC pour CPC. 

Je choisis de régler par : 

Qi CHEQUE Qi MANDAT 

©] CONTRE REMBOURSEMENT (+35 Frs) 

©] CARTE BANCAIRE No: . 
Signature : Expire fin : 








IT RRELCEEZTCEECESTZTCEETEETETEET EEE 

28 ’*# VARIABLES LOCALES pour CPC x 

38 ‘# copyright Y. GOUR (11/1998) x 
UTRETTELTCTETT CPC TT TETE ETES TEE 

58 ‘ 

68 DEFINT a-z:M0DE 1:CALL &BCA2 

78 INPUT"adresse de la routine";a:ad=a 

88 MEMORY a-1 

98 WHILE a$Q"FIN" 

189 READ af 

119 IF at="$" THEN READ a$:b=ad+VAL("&"+a$):POKE a,b AND 255:POKE 
a+1, INT(b/256)AND 255:a=a+2:G0T0 138 

128 IF a$O'"FIN" THEN POKE a, VAL("&"+a$):a=ati 

138 VEND 

148 1F a(>(ad+&1E8) THEN PRINT'Erreur":END 

158 o=PEEK(6):1F 0=128 THEN j=1 ELSE IF 0=123 THEN j=2 ELSE j=3 
168 READ a$:a=ad+VAL("&"+a$) 

178 FOR i=1 TO j:READ cpc$,a$,b$:NEXT 

188 POKE a,VAL("&"+a$):POKE a+1, VAL("&"+b$) 

198 SAVE" local", b, ad, &1E8 

299 END 

218 ’ 

229 DATA 21,$,34,91,$,9,C3,D1,BC, $, 14,03, $,44,C3,$,7D,C3,$,115,C3 
5, AC, C3, $ 

238 DATA 151,53,54,41,43,CB,4C,4F,43,41,CC, 45, 4E, 44, 4C, 4F,43,41,C 
C,47,49,56,C5 

248 DATA 47,45,D4,8,8,9,9,8,$,9,$,1DF,8,9,9,9,8,9,9,89,CD,$,EB,DD, 
66, 3, DD, 6E, 2 

259 DATA DD, 46,81, DD, 4E,9,22, $,3C,22, $, 48,9, 22, $, 42,23, 22, $,3E,2B 
, 28, ED, 5B, $ 

269 DATA 38,87, ED, 52, D8, 2A, $, 3C, ED, 5B,$,3A, 2B, ED, 52, DS, AF, 32, $,3F 
,3C, 18, 76,CD 

278 DATA $,DF,CB,3F,2A, $,48,E5, DD, 46,3, DD, 4E, 2,9, ED, 5B,$,42,13,B7 
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, ED, 52,38, 44 

289 DATA DD,66,1,DD,6E,8,D1,ED,B8,EB,E, 4, DD, 9, 3D, 28, DD, 22, $,48,C9 
, CD, $,DF,CB 

299 DATA 3F,24,$,42,DD, 46,3,DD,4E,2, ED, 42, E5, ED, 5B, $, 49, ED, 52,38, 
16,DD,66, 1 

389 DATA DD,6E,8,D1,D5,ED,B9,E1,E, 4, DD, 9, 3D, 29, DD, 22, $, 42, C9, 8E, 3 
,18,14,47,3A 

319 DATA $,3F,B7,78,28,4,3E, 1, 18,8,B7,28,5,CB,47,C8,3E, 2,21, $, 18B 
»3C,F5,7E, 23 

329 DATA B7,28,FB,F1,3D, 28, F6, 7E, 23, CD, SA, BB,B7,28,F8,CD,8,B9,SE, 
11,C3,9,8,3E 

339 DATA 4,18,DE,CD, $,DF,67,3D,3D,28,6, 87,4F,6,9, DD, 9, 7C,CB,3F, 2A 
» +, 48, DD, 46,3 | 

349 DATA DD, 4E, 2,87, ED, 42, ED, 5B, $,3C, ED, 52, 38,D7, 19, DD,56, 1, DD,5E 
»8,E5,ED,BS,E1 

359 DATA 1,FC,FF,DD,9,3D,28,DC,22, $,48,C9,CD, $,DF,67, 30, 3D, 28,6,8 
7,4F,6,8,DD,9 

369 DATA 7C,CB,3F,24,$,42, DD, 46,3,DD, 4E,2,E5,9,ED,5B, $,3E,B7,ED,5 
2,38,9B,E1,DD 

378 DATA 56,1,DD,5E,9,ED, BB, 1,FC,FF,DD,9, 3D, 29, DE, 22,$,42,C9,9,D, 
4E,6F,29,61 

389 DATA 72,67,75,6D,65,6E, 74,D,A,#,49,6C,6C,65,67,61,6C,29, 73, 74 


| ,61,63,6B,D 
399 DATA A,9,4F,64,64, 29,6E, 75,60, 62,65, 72, 29, 6F,66, 29,61, 72,67, 7 


5,6D,65,6E 

499 DATA 74,73,D,A,8,53,74,61,63,68B, 28,66, 75,6C,6C, D, A,9,53, 74,61 
,63,6B, 28 

419 DATA 65,6D, 79,74,79,D,A,8,FIN 

428 DATA 19F,464,93,CA,664,58,CB,6128,55,CB 


18 " transcription du programse en PASCAL "ARBRE" )LA 
28 ‘ de Alain LAMBERT, publie dans SVM no 46 de )LB 
38 " Janvier 1988 page 91. )LC 
48 ? LD 


58 MEMORY &3899:NODE 1:INK 9,14:INK 1,9:INK 2,6:INK 3,2 )QC 
4:BORDER #:CLS 

68 :STACK, 44808, 41808 >PN 
7% )LG 
88 " definition des types de variables et initialisatio )LH 
ns 

98 DEG:DEFREAL g,c,d:DEFINT i,1,a,v,k,s,n,o,p 

199 g=g:c=c:d=d'i=i:1=1:12=12:a=ata2=a2:v=vik=k:s=s:n=n 
:n2=n2 


)QA 
)HX 


119 RC 
128 * fonctions pour tourner a gauche et a droite RD 
139 * la tortue (curseur graphique) censee dessiner. DRE 
148 ’ son orientation est donnee par o. RF 
159 DEF FN It(o,a)=(o+a) MOD 368 >XZ 
169 DEF FN rt(o,a)=(o-a) MOD 368 YA 
179 JR] 
189 * definition de la couleur en fonction du >RK 
199 ? niveau: distinguer tronc/branche de feuille TA 
268 DEF FN col(n)=1+2#MAX(9, SGN(n-4)) )DG 
219 )RD 
228 INPUT" longueur du tronc";1 >GB 


238 PRINT 

248 INPUT"coefficient gauche";g 
258 INPUT"coefficient centre";c 
268 INPUT"coefficient droit";d 
2178 PRINT 

288 INPUT'angle";a 

299 PRINT 

384 INPUT'variation d'angle";v 
318 PRINT 

328 INPUT"courbure";k 

339 PRINT 


348 IF kCS THEN INPUT"meme sens (5) ou alterne (1) ";s 


: PRINT 

358 INPUT"niveau de ranification";n 

368 ' 

379 * definition de l'ecran graphique et 
388 ? aise en position de la tortue 

399 CLS:0RIGIN 328,8:MOVE 8,#:0=98 


498 ' appel de la procedure de trace d’arbre 


M8 :GIVE,2,01,2,6a,2,@n:GOSUB 798 
428 ' 
439 ” attente de frappe de touche 


448 CALL &BBS9:BORDER 18:WHILE INKEY$="":VEND 


459 END 


488 ? FRUIT 

498 ? 

588 LOCAL, 2,01,2,01 

519 ? 

528 ‘un fruit est un octogone 





)TB 
)TC 
)TD 
)PD 


RG 
RH 


538 IF RND)#.4 THEN pencol=2:1=1:FOR i=1 TO 8::GIVE, 2,0 >TU 


1:G0SUB 1148:0=FN rt(o,45) :NEXT 
548 ? 

558 :ENDLOCAL, 2,0i,2,01 

568 RETURN 

578 


598 * EPAISSEUR 

689 ’ 

618 LOCAL, 2,@n, 2,01,2, n2 
628 GET, 2,0n,2,@l 

638 

649 IF n<=# THEN 738 


658 * epaisseur obtenue en tracant des rectangles 


669 n2=n/2::GIVE,2,@n2:GOSUB 1148 

678 o=FN It(o,98)::GIVE,2,@1:GOSUB 1148 
689 o=FN 1t(0,98)::GIVE,2,@n:G0SUB 1148 
698 o=FN 1t(0,98#)::GIVE,2,81:GOSUB 1148 


789 o=FN 1t(0,98):n2=ROUND(n/2) : GIVE, 2,@n2:GOSUB 1148 


718 n2=n-2: GIVE, 2,@n2,2,€@1:GO0SUB 618 
729 

738 :ENDLOCAL, 2, On, 2,81, 2, @n2 

749 RETURN 


779 ARBRE 
788 


798 LOCAL, 2,01,2,@a, 2, On, 2,012, 2, 6a2,2, En2 


>RK 
>TN 
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889 :GET,2,01,2,0a,2,8n 
818 ’ 

828 1F n=8 THEN 1988 

838 

849 * donner de l'epaisseur 


RF 
>RK 
>HQ 
)TB 
TC 


858 IF n>4 THEN pencol=3:0=FN rt(o,9@):n2=n-3: :GIVE,2,8 DUY 


n2,2,@1:G0SUB 618:0=FN 1t(0,98) 
868 pencol=FN col (n) 

878 :GIVE,2,01:GOSUB 1148 

888 

899 ” branche de gauche 

988 o=FN It(o,a) 


918 12=ROUND(1#g):a2=a-v:n2=n-1: :GIVE, 2,012, 2,6a2,2,On2 >PX 


:GOSUB 798 


928 1F s=8 OR (n MOD 2)=1 THEN o=FN rt(o,atk) ELSE o=FN HD 


rt(o,a-k) 
939 ? 
948 ’ branche du centre 


958 12=ROUND(1#c) : GIVE, 2,012, 2,0a2,2, @n2:GOSUB 798 


968 ? 
978 * branche de droite 


988 IF 5=$ OR (n MOD 2)=1 THEN o=FN rtlo,a-k) ELSE o=FN 


rt(o,atk) 


998 12=ROUND(1#d) : :GIVE, 2,012, 2,8a2,2, @n2:G0SUB 798 


1889 ’ 

1818 ‘ retour au noeud precedent 
1928 o=FN It(o,a) 

1838 pencol=FN col (n) 

1849 12=-1: GIVE, 2,012:G0SUB 1149 


1858 ‘ dessin possible de fruit au niveau 2 


1869 IF n=2 THEN GOSUB 588 
1978 


1888 :ENDLOCAL, 2, 01,2, 0a, 2, On, 2,012, 2,@a2, 2, @n2 


1898 RETURN 


1128 * "forward": en avant la tortue! 
1138 

1148 LOCAL, 2,01 

1158 ! 

1168 :GET, 2, @l 

1178 DRAUR 11005 (0), 14SIN(0), pencol 
1188 

1198 ENDLOCAL, 2,01 

1289 RETURN 


L9 MODE 2::STACK,47888,L1989 

28 n%=n%:n2%=n24:fact!=fact!:prov!=prov! 
38 

48 INPUT °N (N<34) "song 

58 :GIVE,2,@n%:GOSUB 148: :GET,5,0fact! 
68 PRINT n%;"!=*5fact! 

78 PRINT 

88 GOTO 48 


)WB 
KF 
)LC 
»0B 
)HL 
QU 
)HD 
)LB 


119 ‘routine factorielle 

128 

138 ‘definition des variables locales 
149 LOCAL, 2, @n%, 2,@n2%,5,@fact!,5, @prov! 
158 ‘variable en entree: n 

168 (GET, 2, Onx 

179 ? 


188 si n=1 alors 1!=1; retour ensuite de sous-programn 


e 
199 1F n%=1 THEN fact!=1:G0T0 298 
288 ‘sinon 

219 "calcul de (n-1)! 

228 n2%=n%-1::GIVE,2,@n2%:G0SUB 149 
238 "recuperation de (n-1)! 

248 :GET,5, @prov! 

258 "n!=(n-1)!an 

268 fact!=prov!#nX 

279 ? 

288 ‘variable en sortie: n! 

299 :GIVE,5,0fact! 


388 ‘restauration des valeurs des variables locales ava 


nt appel 

318 :ENDLOCAL, 2, @n#, 2, @n2%, 5 ,Bfact!,5,@prov! 
328 

338 RETURN 


18 MODE 2::STACK, 7888, k1998 

28 DEFINT i-n:DEFREAL p-x:n=n:n2=n2:pn=pn:p=p:x=x 
39 ? 

48 INPUT "degre N du polynose et X ";n,x 

59 FOR i=1 TOn 

68’ transfert de N et X et calcul de plnl(x) 
78 iGIVE, 2,@i,5,@x:GOSUB 198 

88 * recuperation de p{nJ{x) 

98  !GET,5,@pn 

189  PRINT'p(";i;")=";pn 

118 NEXT 

129 PRINT 

138 GOTO 48 

149 ? 


169 "routine de calcul de polynose de Legendre 
178 

189 "definition des variables locales 
198 «LOCAL, 2, @n,2, @n2,5, @pn, 5, 0p 

289 "recuperation de net x 

218 :GET,2,0n,5,0x 

229 

238 ‘si n=$ alors pl#](x)=1 

248 IF n=8 THEN pn:1:G0T0 498 

258 ‘sinon, si n=1 alors pli](x)=x 
268 IF n=1 THEN pn=x:G0TD 498 

278 ‘sinon 





DNA 
RD 


>PK 
)RF 
)2B 


289 "calcul de p{n-1)(x) 

298 n2=n-1: GIVE, 2,@n2,5,@x:GOSUB 199 
388 ‘recuperation de pln-1]}(x) 

318 :GET,5,@pn 

328 "calcul de pin-2)(x) 

338 n2=n-2: GIVE, 2,@n2,5,@x:GOSUB 199 
348 "recuperation de pln-2](x) 

358 :GET,5,0p 

369 "pln)(x)=((2#n-1)#pln-1}(x)-(n-1)#p{n-21(x))/n 
378 pn=((2#n-1)#pn-(n-1)*p)/n 

388 

398 ‘transfert de pln)(x) 

489 GIVE, 5, êpn 

418 restauration des variables locales 
428 :ENDLOCAL, 2, @n, 2, @n2,5, @pn, 5, @p 
438 ? 

448 RETURN 


19 MODE 2::STACK, k7988, &1998 

28 n%=n%:n2%=n24:y!=y!:prov!=prov! 

38 

48 INPUT "reel X, puissance N ";x!,n% 


58 ’transaission des valeurs de N et X et appel de lar 


outine 

68 :GIVE,2,@n%,5,@x! :GOSUB 178 
78 ‘recuperation du resultat X°N 
88 :GET,5,@y! 

98 PRINT x!;"""sn4"=";y! 

188 PRINT 

118 GOTO 48 

129 ? 


149 routine de calcul de puissance 

158 ? 

169 "definition des variables locales 

178 LOCAL, 2,@n4,2,0n2x,5,@y!,5,@prov! 
188 recuperation des valeurs de net x 
198 :GET,2,@n%,5, 0x! 

288 

218 ‘si n°8 alors x*9={:retour du sous-progranne 
228 1F n%=9 THEN y!=1:G0T0 328 

238 "sinon 

24$ "calcul de x*(n-1) 

258 n2%=n%-1::GIVE,2,0n2%,5, 0x! :G0SUB 178 
268 "recuperation de x*(n-1) 

278 :GET,5,0prov! 

288 ’1°n=(x"(n-1))#x 

298 y!=prov!#x! 

388 

318 "transmission de x°n 

329 :GIVE,5,0y! 

338 ‘restauration des variables locales 
349 ENDLOCAL, 2, @n%, 2, @n2%,5,0y!,5, Oprov! 
358 

369 RETURN 
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 * 
1% Variables 
+ HASIC Loc 
sk copyright 
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me DEMO EE DE DEN KO 








RS XLOCAL. » 


LOCALNAMES : 





EUFFER 
DEHROUT : 
FINAOUIT « 
DERBFILE : 
FINFILES: 
LOCALET : 
VARET à 











STACE: 


y pile empi 











locales pour le 
onotive des CFCS 
11/1990 Y, GOUR 





RER HE DE MED DE DER EH DE EME 


QG QAGOOF 
LOAD QAGOOH 


LD HL. , HUF FER 
LD EC, RGXLOCAL. 
BCD TH 











LOCALNAMES 
STACEF. 





GIVE 
GET 
DÈFE ‘STAC', KE "+8 
DEFE ‘LOCA','L'+8 
"ENDLGCA: , ‘L 
E ‘+80 


T'+80H 


O4 











La pile 


CALL VERIF? 
LD  H, CIX+0: 
LD L,CIX+0® 
| 





} 
..[) EH, (IX+O1) 

D EC, CIX+00) 

D (DEBFILE) ,HL. 
L.D LOCALET) , HL. 
ADD  HIL.,HC 
L.D (VARPFT) ,HL. 
INC  HL 

1.13 CFINFILE) ,HIL. 
ete sur debut de 
DEC  HL 

DEC HILL. 

LD DE, (DERROUT) 








OK (e) 


RH PE MEME DE HE BD DE DE EE EME DE EEE ÉD ONEEENE 


x 
+ 
* 
L: 
* 
+ 


Qt 
OH 
+0 
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routine? 















PAGE 2 
58 A06G 
59 AO6GA 
680 
6i AO6GE 
62 AO6E 
6% A07E 
64 AQ7E 
65 A07S 
66 
67 A076 
68 A77 
69 AÜ7A 
70 AQ7E 
71 
72 
74 
75 AG7D 
76 AGO. 
77 AOBE 
78 AOBE 
79 A0Gé6 
30 A0 
81 
E 2 
65 A0GC 
84 AG6D 
85 AO 
56 A09E 
87 AGE 
86 4095 
89 
90 A097 
G1 AOGGA 
92 AO9D 
Gi AE 
94 AOA0 

3 AOQAI 
96 AOAE 
97 AGAS 
98 ANA6 
ee Le) 

100 
LOL AOAB 
10 AOÛK 
LOE 
104 
105 
106 
107 AOAC 
108 AOAF 
109 AO! 
110 AOEB4 
ill AOR7 
117 AOEA 
115 AOC 
114 
115 
116 AOBD 
117 AQCI 


EDS 
D8 


2ASCAQ 
EDSHEA80Q 
2H 

EDS 

DO 


AF 


323FA0 


CDDFAO 
CREF 
ZA40A0 
ES 
DD460% 
DD4E0? 


09 
EDSER4ZAQ 
LE 

B7 

EDS 
3044 


DD660 1 
DDéE QC 
D 
EDRO 
EH 
OGEO4 
DDO9 
ED 
20ODD 


2240A0 
CS 


CDDFAO 
CHEF 
ZA4ZA0 
DD460% 
DD4E0 
ED4 


ES 


EDSEH40A0 
EDS2 


;: pile 


5 pile 


n 
1 


LOCAL. : 


LOCALE: 


: pile de variables locales va mordre 


; empilage de variables locales 


SHC HL,DE 
RET C 
déborde sur fin de routine” 
1. D HL, (DERFILE) 
LD DE , (FINKOUT ) 
DEC HI. 


SEC  HL,DE 
RET NC 
mordant sur la routine: erreur 
XOR A 
LD (FINFILE+1) ,A 
INC À 


JR ERROK 


CALL VERIF 

GSRL A 

LD HL, (LOCALFT) 
FUSH HL 

LD B,(CIX+O:) 

LD C, CIX+02) 


; sur piles de vars a transferer? 


ADD HL,ERC 
LD DE, (VARFT) 
INC DE 


OR A | 
SHC  HL,DE 


JR NC, STACEFULL. 


1 empilage 


1 mise 


L.D H, CIX+01) 

LD L, CIX+00) 

FOF DE 

LDTR 

EX DE , HL. 

LD C,04 

ADD IX,KHC 

DEC À 

JA N2Z,LOCAL2 
a jour du pointeur 


: locales 


: 
; empil 


GIVE: 


; pile 


LD  (LOCALET) ,HL 
RET 


Lage de Vars a transferer 


CALL VERIF 
SKL À 
LD HL , CVARFT) 
LD EH, (IX+0:35) 
LD C,(IX+O2) 
SEC  HL,EC 
FUSH HL 

de vars a transferer 


sur pile de variables locales? 


LD DE, (LOCALPT) 
SEC  HL,DE 


de variables 


va mordre 





116 
119 
120 
121 


ee 
FR 


124 
125 
12 

127 
128 
129 
150 
11 
152 


L'are 
ni 


1:54 


HE 
ve) 


136 
157 
1:68 
LE 
140 
141 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
1537 
1568 
159 
160 
16 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 
1725 
174 
175 
176 
177 


AQCE 


AQCS 
AÔCS 
AÔCE 
AQOCC 
AQCD 
AÔCF 
AODO 
AQD2 
AOD4 
AODS 


AGD7 
AODA 


AODE 
AGDD 


AQDF 


AOEOQ 
AQES 
AGE 4 
AQES 
AOE7 
AQE9 


AQEE 
AOEC 


AQEE 
AÛUFO 
AQF 1 


AGFE 
AOF 6 


AQF7 
AQFS 
A0FG 
AQFA 
AÔFE 
AQFD 
AQFE 
AÔFF 


AiO1 
A102 
AIOZ 
A106 
A107 


5816 


DD6601 
DD6EQO 
D1 

DS 
EDEOQ 
E1 
GEO4 
DDO9 
SD 
20DD 


E24TAO 
Co 


HEOS 


1814 


47 


SAEFAO 
KH7 

78 
2004 
3EO1 
1808 


E7 
2805 
CKH47 
C8 


3EO02 


218HA1 
2C 


E7 


Fi 


20F8 


JR 

; empilage 
L.D 
LD 
FOF 
FUSH 
LDIR 
FOF 
LD 
ADD 
DEC 
JR 

; mise a jour du 

5 à transferer 
LD 
RET 

STACFEFUIL.L.: LD 

JR 


5 verification d 


VERIF : 
; pile definie” 
LD 
OR 
L.D 
JA 
LD 
JK 


C,STACEFULL. 


H, CIX+O1) 
L,(IX+00) 
DE 
DE 


HL. 

C,04 
IX,EHC 

à 
NZ,GIVE®Z 
pointeur 


dé variables 


CVARFT) ,HL. 


A,0% 


ERROR 


B,A 


A, (FINFILE+1) 
A 

A,E 
NZ,VERIF® 
a,01 

ERROR 


3 aucun argument”? 


VERIFZ: OK 
JR 
; nombre 


BIT 


ERROR : LD 
INC 
5 pointage sur 
ERROKCE : 
ERROKE « 


FUSH 
LD 
INC 
OK 
JK 
POF 
DEC 
JR 
3 affichage 
ERROK4 : LD 
INC 
CAL.L. 
OR 
JK 
173: 


y ‘erreur 


ME 


A 
Z ,ERROR 


pair d'arguments? 


o,A 





ssage d'° 


HL., MESSAGES 
a 


le message d'erreur 


AF 
A, (HL.) 

HL. 

A 

NZ ,ERRORE 
AF 

A 

NZ ,ERRORE 


du message 


A, (HL) 

HL. 

OBRRSAH 

A 

NZ ,ERRORA4 


Cannot CONTinue 













18DE 


CDDF AO 


ALIiD 
ALLIE 
ALIF 0600 
Alz21 DDOS 
JC 















Alzé 2A40A0 
1429 DD4605 
ALZC DD4EOX 
Al2F E7 
ED4:2 


EDSEHECAO 


E DEC 
El 
QIFCFF 
(148 DDO9 
146 ED 
ALAHR ZODC 


224040 


9 









Al51i CDDFA0 
154 67 
155 SD 
siSé I 


ABOU 


I ATN TE) 


CALL OR9OOH 
LD: AxTr 
JF  OCA9EH 
: CFC 664: JP OCHSSH 
: CPC 6128: JF OCESSH 


BTACEÉERMETY# LD A,04 
JF ERRQR 





; depilage de variables locales 


CALL VERIF 
(en 9) H, À 
JET À 
fi 
Z y ENDLOCAL.S 
ADD A, 
LD C,A 
1.0) B,00 
DD  IX,HC 
ENDLOCALEs LD 6, H 
SKL À 
LD HL. , CLOCALFT) 
ENDLOCALSEs LD H, (IX+0:5) 
LL) Co, CELX+02) 
OR ñ 
SEC  HL,RC 
: depilage de variables 
; deca du debut d& pil 
L.D DE, CDERFILE) 
SHC  HL,DE 
JK CO, HTACEEMETY 
ADD  HL,DE 


ENDLOCAL. : 












locales en 


: depilage 
LD D,(IX+01) 
1.0 E, CIX+00) 
FUSH HE. 
LOIR 
FQF Hi. 
LD BC ,OFFFCH 
(ADD  LIX,HC 
DEC À 
JF NZ ENDLOCAL.E 





Les 


LD CLOCALET) , HL. 






3; depilage de vars a transfe 
GET : CALL VERIF 
L.D H,A 
DEC À 
DEC À 
JR Z,GETE 
ADD A,A 
LD C,A 
LD H,00 





a jour du pointeur de variables 
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“D 
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224240 
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OOOD 
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OAO00 
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GSHODHAOC 
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O0 
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Q0 


1: depilage de variables a transferer 
fin 


3 au dela de la 


FUSH 
ADD 


3; depilage 


mise à 


o 
5 à trans 


MESSAGES « 


FIN: 


jour du 


ferer 


L.D 
RET 


DEFR 
DEF 


DEFH 


DEFH 


DEFH 
DEFH 


DEFR 


NOF 


END 


IX,RC 
A,H 

A 

HL, (VARFPT) 
E, (IX+O3) 
C, (IX+02) 


de pile” 
HL. 

HL , RC 

DE, (FINFILE) 
A . 

HL. , DE. 

NC, STACEEMFTY 
HL. 


D,CIX+O1) 
E, C(IX+00) 


RC ,OFFFCH 
IX,BC 

A 

NZ,GETS 


pointeur de variables 


(VARFT) ,HL. 


00,17 


"No argument! ,1s,1 


‘Tllegal stack', ir 


‘Odd number of arc 


SOA DELA 
‘Stack full',15,10 


‘Stack empty',1li,1 














PETITES ANNONCES 


V 


La place réservée aux petites annonces est limi- 
tée. En conséquence, celles-ci passent dans leur 
ordre d'arrivée. Par contre, les petites annonces 
fartelues sont systématiquement rejetées. De même, 
comme il est peu probable qu'il existe des “géné- 
reux donateurs” de matériels ou de logiciels, les 
petites annonces faisant appel à ces philantropes 
ne seront insérées que si la place le permet. 
Seront refusées toutes les annonces visant à ven- 
dre ou échanger des listes ou copies de logiciels 
non garantis “d'origine”, ainsi que toute annonce 
incitant au piratage. 

En conséquence, réfléchissez bien avant d'envoyer . 
vos textes. Les petites annonces doivent impérati- 
vement nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un carac- 
tère par case. 

Enfin, toute annonce non accompagnée de timbres 
ne sera pas insérée. 


A 


— Vds CPC 464 couleur + jeux + joystick + livres : 1600 F. Tél. 
30.99.05.11 à partir de 18h. 


- Vds CPC 6128 couleur, 1988, neuf + meuble + adaptateurs 
MP2 et MP3 + radio réveil + Muttitace 2 + magnéto K7 + câbles 
+ 260 jeux + aide + cadeau. Valeur : 12500, vendu : 5500. Tél. 
74.86.55.54, à débattre. 


— Vds 464 + DD1 + mon. coul. + 300 jeux + DK & K7 + 3 joys- 
ticks + revues : 3500 F ou éch. contre PC compat. 5” 1/4. Ro- 
geon Stéphane, 49.43.30.89. 


— Vds Amstrad CPC 6128 couleur avec 21 D7 (jeux, utilitaires) 
et 1 joyst. : 2800 F à débattre. Tél. 43.07.57.98, Nicolas. 


— Vds Amstrad 6128 mono avec beaucoup de jeux géniaux, 
traitements de textes, avec une super manette, etc. Le tout pour 
1800 F. Tél. 30.90.86.20. 


— Vds jeux pour Amstrad K7 (Italy 90, Forgotten Word, etc.). 
Prix intéressant. Tél. 42.04.16.57 (Thibaud). 


— Vds CPC 464 mono + 2 joys. + 50 revues + 150 jeux + pistolet 
+ Kit minitel, le tout bon état : 1500 F. Tél. 84.26.44.89 à débat- 
tre. 


— Vds CPC 6128 couleur, tbe, 3 manettes, 1 phaser, 120 jeux 
originaux, valeur : + de 7000 F, vendu : 3500 F. Tél. 27.81.89.36, 
après 18h, Cambrai. 


— Vds scanner Dar 6128, neuf (3 mois) : 500 F port compris. 
Enc Konstanty, Blesme, 51340 Parny sur Sauix. Tél. 26.73.78.12. 


— Cherche correspondant pour échanger news D7 poss. (C. 
Trueno, Pipemania) et Vds console Atari 2600 + 5 jeux : 350 F. 
Tél. 48.76.91.28. 


- Vds Amstrad 6128 + DMP 2160 + manuels + jeux + synthé 
vocal Le tout en très bon état : 3300 F à débatre. Tél. 69.48.18.42. 


— Vds Amstrad CPC 464 coul. avec ext. mémoire 256 Ko : 2500 
F, lecteur de disquettes : 1000 F, second lecteur : 900 F. Tél. 
44.07.69.15, week-end. 





— Vds carnet d'adresses électronique réalisé à l'école des mi- 
nes d'Alès. Ecrire à : Varona François, 572, chemin du Viget, 
30100 Alès. 


— Vds CPC 464 + nbnx jeux + joystick : 1500 F à débattre. 
Creuzet Adrien, 23, rue René Cassin, 71210 Montchanin. Tél. 
85.78.44.22, hr. 


— Urgent ! Vds lecteurs vidéo Orion à télécommande infrarouge. 
Prix : 950 F. Tél. 37.52.3216. 


— Cherche copie DK CPM +. Tél. 35.60.14.34, À Barbaray, 6, 
rue H. Dunant, 76000 Rouen. 


_ Vds Amst. 6128 coul. + manuel + disk de base, 1 an : 1500F. 
Tél. 64.21.17.96 après 18 h. 


— Vds ou échange nbx jeux et utilitaires sur disk. Claron Pascal 
chez M. Pavoux Raymond, 30, allée de Pluvy, 69590 St-Sym. 


— Ach. avec boitier et à prix réduit : Meurtre en série, Heroes of 
Lance, La marque jaune, Citée perdue, Quin, Maitre des ames, 
Gold silver bronze. Le Floch Denis, 30, av. des Acacias, 37230 
St-Etienne de Chigny. 


— Vés moniteur monochrome GT65 pour Amstrad CPC 464 aur 
prix de 350 F. Frédéric Kapheim, 29, rue François Pinson, 92320 
Chatillon. Tél. 47.36.10.11. 


— Vds 6128 coul. + tuner radio TV + imprimante Citizen 120 D + 
jeux + nbrx accessoires : 5000 F. Tél. 47.36.79.18. 


— Echange news sur 6128. Adresse : David Avoine, 21, rue du 
Docteur Trousseau, 37540 Saint CyrAoire. 


— Vés le Hacket 7.0 : 300 F + magnétophone pour 664, 6128 
avec 10 cassetes : 200 F, ensemble ou séparément. Tél. 
49.49.07.72, ap. 19h. 








LES PETITES ANNONCES ET LES MESSAGES 
Attention, vos PA seront mises sur le serveur avant la parution du joumal 


— Vds CPC 6128 couleur + tuner TV + nbrx jeux : 2500 F + D7 
vierges : 15F + originaux (Thunder Rick, Haly 90). Tél. 48.23.17.80. 


— Vds 6128 coul. + housses + nbrx util. + souris AMX + 40 D7 
{news + orig.) + Amstar (15 à 51) + 2 joysticks + doubleur, cédé 
: 2000 F. Tél. 60.47.18.89. 


— Top affaire ! Vds CPC 6128 coul. : 1890 F, tbe + souris 
CPC : 500 F + crayon : 400 F + synthé vocal : 600 F + livres + 
nbreux logiciels (environ 90 F l'unité) + simulateurs d'avions 
(Bomber, Chuck Yeager, Fight Pilot) + journaux anciens (AM- 
MAG)... PS cadeaux gratuits. Tél. 64.41.00.01. 


— Vds Amstrad CPC 6128 + 66 discs + 2 joysticks + imp. Citizen 
120 D + souris + journaux + manuels + PAP imp. + Discology, 
état neuf. Prix : 7590 F. Contacter Aurélien (écran couleur), tél. 
20.89.86.63 (ap. 6 h 30). 


— Contre une K7 et 5 F en timbres cous recevrez Arnold un 
nouveau fanzine en K7. Il y a des jeux, des joys. à gagner. Ecri- 
vez à Sébastien Bertiaux, 123, rue de Bellain, 59500 Douai. 


URGENT ! Vds 6128 couleur, sous garantie : 2500 F + im- 


primante 2160 : 800 F + manette + livre + D7. M. Bosson, 
tél. (16-1) 43.40.06.65 ou (16-1) 42.80.62.07. 





— Je suis auteur programme gestion de timbres pour CPC 6128. 
Ingles Jean, 232, rue des Saules, 74950 Scionzier, 50.98.86.92. 


— Vds CPC 464 couleur + 1 manette + 36 jeux + 1 manuel de 
programmes : 3000 F (urgent). Tél. 64.48.44.92, le soir. 


— Vds CPC 464 + imprimante DOMI + lect; disk + jeux origin. + 
papier + disc + joystick, moniteur couleur. Ludovic, tél. 45.94.61.82, 
après 18h. 
































LL ELELOLCEE O 
Adresser le tout à : SORACOM - La Halo de Pan - 35170 BAUZ 5] 






Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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PRATIQUE DE 
L’'ASSEMBLEUR 


Emmanuel GUILLARD 


Ce mois-ci, nous allons en finir avec les instructions du Z-80 
dont vous avez eu la liste le mois dernier, en expliquant, afin 
d'éviter des dégâts supplémentaires, les instructions que vous 


LES REGISTRES 
DE REMPLACEMENT 


Z-80 possède 8 registres 8 bits 

A,B,C, D.E,H, Let F, qu'ils 
peuvent être rassemblés par 2 pour 
former des registres 16 bits, à savoir 
AF, BC, DE et HL. Eh blen. il faut sa- 
voir que le Z-80 possède deux jeux 
de ces 8 registres |! Ce qui nous 
donne les registres À, B,C, D.E,H,L 
et F, et les registres A',B',C',D'.,E", 
H’, L' et F’, qui sont appelés les re- 
gistres de remplacement. Ne croyez 
pas pour autant que la vie va vous 
être simplifiée par ces registres, car 
il est, d'une part assez rare de les 
- Utiliser, et d'autre part assez difficile, 
voire même déconseillé de le faire : 
ces registres sont souvent utilisés et 
modifiés par les sous-programmes 
internes et les interruptions (qui sont 
expliquées plus loin, rassurez-vous !). 
Il vaut mieux donc être certains de 
ce que l'on va faire. Si vous y tenez 
tellement, voici des instructions qui 
vont vous être utiles : 
e EXX : intervertit les contenus des 
registres doubles BC, DE et HL avec 
BC’, DE’ et HL', respectivement. 
e EX AF, AF' : Interveriit les contenus 
du registre double AF et de son 
remplaçant AF'. 
Notez que l'instruction EX AF', AF 
n'existe pas | 


V2 savez maintenant que le 





n'êtes pas censés comprendre. 


LES INTERRUPTIONS 


Thème souvent peu évident à expli- 
quer, m'enfin bon, on va essayer. 
Rassurez-vous d'avance, vous n'en 
avez encore pas ütillsé dans les pro- 
grammes assembleur que je vous ai 
proposé jusqu'ici. Enfin, pas vral- 
ment. 


Une interruption provient générale- 
ment d'un circuit périphérique au 
Z-80. Il lui envoie un signal logique 
pour lui indiquer qu'il est prêt à 
exécuter un travail particuller. Le Z- 
80 cède alors la priorité à ce travail 
et reprendra celui qui était en cours 
lorsque celui-ci sera terminé. 

En clair, Imaginez un programme en 
cours d'exécution. Imaginez qu'une 
Interruption ait alors lieu. L'interrup- 
tion, va en fait demander au 7-80 
d'exécuter Immédiatement un sous- 
programme de traitement, peu im- 
porte ce qu'il était en train de falre 
auparavant. Le 7-80 va alors sauve- 
garder les fiags (registre PF), la plu- 
part du temps sur la plle, effectuer 
le sous-programme de traitement 
d'interruption requis, puis revenir à 
son programme initial. Vous vous 
demandez sûrement comment les 
interruptions se déclenchent-elles. 
Eh bien, c'est le programme luli- 
même qui va initialiser les périphéri- 
ques et leur demander d'émettre 
des interruptions selon des condi- 
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tions précises. Comment, vous ne 
voyez toujours pas ? Rappelez-vous, 
les commandes EVERY, AFTER du 
Basic |! Ces commandes program- 
maient l'horloge temps réel du CPC 
et lui demandait d'exécuter après 
un certain temps un sous-program- 
me. Eh blen, on peut naturellement 
faire la même chose en assembleur, 
de façon peut-être un peu plus 
compliquée quoique), mais en tout 
cas plus performante. 


Maintenant, imaginez la secrétaire 
débordée de travail, qui, tout en 
remplissant continuellement des 
paperasses d'intérêt discutable, se 
voit dérangée toutes les 70 secon- 
des pàr 2 téléphones qui n'arrêtent 
pas de sonner, quand ce n'est pas 
par le patron qui vient encore la 
draguer. Imaginez maintenant que 
la secrétaire est un bon vieux Z-80 
(tiens, le patron a déjà disparu 1?). 
Blen sûr, quand le téléphone sonne, 
elle arrête son travail en cours pour 
y répondre. Eh bien, voilà le Z-80 qui 
se met à exécuter le sous-program- 
me d'interruption. Maintenant, le 
deuxième téléphone se met à son- 
ner, mais le premier interocuteur n'a 
toujours pas raccroché : Impossible 
de répondre aux deux à la fois |! De 
la même façon, le Z-80 peut-être 
sollicité pour le traitement d'une In- 
terruption alors qu'il effectue déjà 
le traitement d'une autre Interrup- 

















tion. SI rien n'est précisé, le Z-80 va 
proprement céder la priorité à la 
dernière Interruption demandée, et 
continuer son traitement initial seu- 
lement après la fin du traitement de 
cette dernière interruption. 

Si cependant, le traitement d'une 
Interruption ne doit en aucun cas 
être interrompu lul-même, Il existe 
une Instruction qui empêche les in- 
terruptions. C'est l'instruction DI. 
Néanmoins, Il faut distinguer 2 types 
d'interruptions. Les Interruptions 
masquables, et les Instructions non- 
masquables. L'Instruction DI n'a 
d'effet que sur les interruptions 
masquables : DI signifle Disable 
maskable Interrupt, ce qui veut dire, 
dans la langue de Marcel Pagnol : 
Invalide (empêche) les interruptions 
masquables. 

Les interruptions non-masquables ne 
peuvent donc, comme leur nom 
l'indique, être masquées (1). 


Une autre Instruction permet, à l‘In- 
verse de DI, de valider, donc de 
rendre possible les interruptions 
masquables. Il s’agit de l'instruction 
El (Enable maskable Interrupt) : vali- 
de les Instructions masquables. 


Une instruction déclenche l'exécur- 
tion d'un sous-programme, ça, vous 
le savez maintenant. Et comme tout 
sous-programme, Il doit se terminer 
par une Instruction de retour au 
programme principal. Deux instruc- 
tions existent pour terminer un sous- 
programme de traltement d'inter- 
ruption. Il s'agit de : 

RETN : pour les interruptions non- 
masquables 

RETI : pour les Interruptions masqua- 
bles 


A noter aussi qu'une interruption 
non-masquable ne pourra être In- 
terrompue par une Interruption 
masquable. Cette dernière devra 
attendre. Lorsque le Z-80 réagit à 
une interruption masquable, |! em- 
pêche les interruptions (masquables 
évidemment), et sauvegarde le PC 
sur la plle. 


a 





MODES 
D'INTERRUPTION 


Ce paragraphe concerne les inter- 
ruptions masquables. Sachez, si vous 
êtes surtout programmeur que vous 
n'aurez que très rarement affaire 
aux interruptions. Cela s'adresse plus 
aux électroniciens, mais le pro- 
grammeur peut aussi en avoir de 
temps en temps besoin. 


3 modes d'interruptions sont possl- 
bles et sélectionnables par l‘instruc- 
tion : IMn. 

n désigne le n° du mode d'interrup- 
tion quil est O, 1 ou 2. 


Avant d'accepter une interruption, 
le Z-80 attendra que le périphérique 
générant l'interruption lui envole 
une Instruction, au cycle d'horloge 
sulvant, par l'intermédiaire du bus 
de données (Vous voyez que c'est 
compliqué l). 

Cette instruction sera généralement 
un appel de sous-programme de 
gestion d'interruption (CALL), ou 
une Instruction de redémarrage : 
RST n : ReSTart à l'adresse n. 

n est une adresse contenue dans 
un sul octet et ne pouvant prendre 
que les Valeurs suivantes : 

Oh, 8h, 10h, 18h, 20h, 28h, 30h, 38h. 
Donc ici chaque sous-programme 
n'aura que 8 octets pour s'exprimer. 
Tout comme un CALL, RST entraîne 
la sauvegarde du PC, le masquage 
des interruptions, et ensuite com- 
mence le sous-programme traitant 
l'interruption. 


Ce mode est identique au mode 0, 
à cecl près que le Z-80 exécute un 
RST 38h avant d'accepter l‘Inter- 
ruption. 


Ce mode est un peu spécial : après 
que l'instruction en cours d'exécur- 
tion ait été terminée, que le PC ait 
été sauvegardé, et que les Instruc- 
tions alent été masquées, le Z-80 ef- 
fectuera un saut à une adresse pal- 
re aléatoire : 

Une adresse est définie sur 16 bits . 


(voir schéma 1) 


Une adresse est paire si son bit le 
moins significatif est à 0. L'adresse 
est choisie parmi 128 (les bits 7,6,5, 
4,3,2, 1 sont positionnés par le péri- 
phérique), les 8 bits de poids fort 
étant positionnés par un nouveau 
registre, le registre | (registre d'inter- 
rupton). Cela permet de sauter à 
n'importe quelle adresse paire 
d'une table, chaque adresse étant 
définie par un périphérique précis : 


par exemple, si 3 périphériques sont 
connectés, le premier, lors d’une in- 
terruption va coder une certaine 
adresse ADI, le second, une adres- 
se AD2., et le 3ème une adresse AD3 
qui chacune déclencheront l'exé- 
cution du sous-programme corres- 





SCHEMA 1 


poids fort 8 





adresse 


pondant au périphérique . 
(voir schéma 2) 
7 poids faible 0 

















38 

















Vous saisissez maintenant l'intérêt 
des Instructions sulvantes : 

LD 1, A : fixation de l'octet de poids 
fort de l'adresse des sous-program- 
mes de gestion des interruptions. 

LD À, | : lecture de l’octet de poids 
fort de l'adresse de la table des 
sous-programmes. 


Ex : si | contient 80h, les adresses 
des sous-programmes appelés par 
l'interruption ne pourront être que 
les 128 suivantes : 

8000h 

8002h 

8004h 

8006h 

8008h 





SCHEMA 2 
adresse du sous-programme de gestion de l'interruption 


fixé par le registre | 


80FAh 
80FCh 
80FEh 


Pigé ? Allez, rassurez-vous, je m'ar- 
rête là, en ce qui concerne les in- 
terruptions. Ceci est à savoir, mais 
ne nous sera réellement utile que 
lorsqu'on verra la programmation 
des circuits Intemes de l' AMSTRAD. 






ARCADES 


if 


fixé par le périphérique 





Le mois prochain, on va program- 
mer un éditeur de ligne : le but sera 
de saisir une phrase de plusieurs 
caractères, et de pouvoir se pro- 
mener sur la ligne à l'écran pour 
corriger, effacer, ajouter des ca- 
ractères, etc. C'est un exercice de 
toute façon très utile et qui sert dans 
de nombreux programmes. Réfié- 
chissez-y donc bien, ce n'est pas 
difficile, mais cela demande é-nor- 
mé-ment de rigueur dans l'analyse. 
Sur ce, au mols prochain |s= 


À SUIVRE... 


| 
|| 0 


Des centaines de logiciels pour CPC à télécharger 


avec le kit ARCADES. 


Voir bon de commande page 42 
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D'ESSAI - BANC D'ESSAI - BANC D’ESSA 


Et Sn 









es Fêtes sont l'occasion de dépenses déralson- 
nables et l’on se retrouve fort dépourvu lorsque 


respondants aux intitulés des différents postes peuvent, 


blen sûr, être édités ou saisis. Dès qu'une opération est 

le mols de janvier fût venu. Pour éviter certains effectuée sur les Index, une sauvegarde est automati- 
désagréments, Il vaut mieux suivre au Jour le jour les quement demandée. Vous pouvez même changer le 
mouvements de son compte. Alors si vous possédez numéro d’un compte dans toutes les écritures déjà 
un 6128 et une Imprimante (pas obligatoire mais blen saisies. L'option «Sauvegarder les données» est mise 
utile quand même), munissez-vous du logiciel Falrbank en évidence par un petit pavé dès que la moindre 
2.00 et commencez la chasse aux comptes désordon- modification est effectuée, cela permet de ne pas 
nés. oublier la sauvegarde des données en fin de cession 
Pour commencer Il vous suffit de lancer Falrbank et 


après un temps d'attente, apparaît un menu sélec- 
tlonnable par les touches flêchées ou par l'entrée 
d'une lettre. Un pavé noir en bas de l'écran vous de- 
mande si votre configuration comprend 1 ou 2 lec- 
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: F e ENERAL Compte No. 12345 1 9 e 
teurs. L'appul sur Ci et D permet d'ajouter ou de 1980 CREDIT 6 . 19687.44 | 
retrancher une Icône symbolisant les lecteurs en ques- de Li ie < at den + 1 ae e 
. 8: . .00+* 
ton. De plus I! faut remarquer que, dès la mise en © Sin Net Mc rIruRele 19 MU ee © 
S) 
route, la barre de sélection est placée automatique- SIA esse MATIN D'EPARONE eu 5.00 $ 
, ON: (Laisse PULL .72% 63e 
ment sur chargement des données, puisque c'est la 9 Gin ses ee ii Fa 
SJAN  OSPPÉC EDF (REMBOURSEMENT? : 96.15. 2 
première opération à effectuer pour utiliser Falrbank. QU sant CRT 0 99.4 7668.339 
2 “ 9  SUM 34 20% 
Cette option ne vous propose pas de catalogue de la A enr SUR Lente) 7 sé 2. e 
disquette mals comme chaque fichier équivaut à une Do Jan essvebt  ESPECES 18 237.00. e 
année, Il est facile d’appeler le fichier correct. On se ssrrnes AS El 15 RER 
retrouve ensuite le menu mals orné cette fols-ci de 2e Jen 


26 JAN 0900009 COMPTE PARRAINE 48 
€ 
g JAN 9:99863 CARIET (10009 KM) 15 


URANT) 29 rh 
l'intitulé et du numéro du compte, du solde à jour et DOS OMS DN anen  À 751.06 
2 À S 
de la demière écriture. A partir de là, vous pouvez Jo Jan 9199867  SÉSSEN 
éditer les mouvements, c'est-à-dire les lister depuis une 









DAS ee CR emce cas 
See 0199870 SU 21 150. 00% 
date donnée, effacer ou modifier une écriture et JUN NID  VETERIMAIRES RES 3 ro 
pointer ou dépointer. Cette demière opération pemet FEV rem Dom rse pes Eaux 13 28.04 
de noter les opérations identiques au relevé bancaire. SES mwes Lee 53 213.08 
La modification est simplifiée puisque l'écriture origl- 3 FEV sens CA ri ïè 7. s.08+ 
nale est Inscrite en bas de l'écran et vous pouvez SE jus Ce verve 17 Main 
conserver certaines données communes en appuyant ii FE ser ee LAROGQUE 5: Ca 
sur Copy. De retour au menu, Il est possible de lister les 11 FEV Zive8e2 NICROSPOT 7 2112179 7668.53 
écritures d’une date à une autre, en fonction d’un Ne SUR î. EU D 
poste (parmi les 40 disponibles), par rapport au libellé IDE 2iomes  nEcomren Een 
(celui-ci peut être partiel) ou blen en utilisant les pré- is en Fins Sn csoLarion ce Fra. 8e 
fixes pour carte de crédit, distributeur etc. L'option Zee jee Meur ÉssNce) D 
«Controle du relevé bancalre» permet de mettre à ÉLUS 


Jour vos écritures en fonction de votre relevé. Avec 
une Imprimante, vous obtiendrez les mêmes listings que 
ceux décrits dans les différentes options «Lister». De 
plus, les soldes et les Index des comptes peuvent eux 
aussi être Imprimés ou sortis sur l'écran. Ces Index cor- 
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(Mais si l’on choisit «quitter» sans avoir sauvé les don- 
nées on vous rappelle votre oubli). A la fin de l'année, 
ll faut créer un nouveau fichier pour commencer la 
nouvelle année. Une routine est présente au menu et 
permet la transmission des Index des comptes et le 
report de l’année précédente. Enfin, l'Initialisation d'un 
nouveau compte permet de gérer plusieurs comptes 
(1 compte par disquette). 

L'intérêt de Falrbank est de faciliter la vie de l'utillsa- 
teur, pas besoin, ou presque, de lire le manuel. Cha- 
que opération comprend le rappel à l'écran de toutes 
les fonctions disponibles et parfois même des exemples 
de saisies. Tout est conçu pour que la saisie soit la plus 
rapide et la plus efficace. Falrbank se présente donc 
comme la gestion de compte bancaire la plus perfor- 
mante sur CPC. Falrbank peut d'ailleurs être utilisé dans 
une PME en complément d'un logiciel de comptabili- 
té. 








Edité par : Knight Clarke 


EMA GENT 002.48 


quelques problèmes avec le Ilsting AGENT 002 

(n° 46, 47 et 48 d'Amstar & CPC), Je me suis 
penché sur cette question et voici le résultat. Pour 
éviter le MEMORY FULL en 80, Il suffit de charger le 
programme en deux fols. En cherchant blen, j'ai même 
trouvé une autre erreur : I| manque une ligne de Datas 
au listing ASDATA. Vous remplacerez les lignes 10, 20 
et ajouterez la ligne 95. La ligne 100 est Inchangée 
ainsi que le reste du listing. Ensuite, Il faut lancer 
ASDATA pour obtenir un nouveau fichier AS.BIN. Vous 
devez alors avoir sur une même face de disquette les 
fichiers A1 à A6 et le programme LOD.BAS. Faites un 
RUN "LOD” et patientez Jusqu'au Ready. Normalement, 
l'écran va se couvrir de petits traits. Le programme 
LOD aura sauvé deux programmes : AGENTI.BIN et 
AGENT2.BIN. I! suffira de lancer 002 pour obtenir (enfin 1) 
le jeu. Si ce n'est pas le cas, révisez vos Datas, Ils sont 
certainement en cause. Pour ceux qui veulent en sa- 
voir plus, volla comment se déroule la sauvegarde. 
LOD se charge de réunir les fichlers A1, A2, A3 et A4 
en un sul fichier AGENTI.BIN. Ce dernier est suffisam- 
ment petit pour tenir facilement dans la mémoire. En 
revanche, Il n'y a plus de place pour A5 et A6, il faut 
donc les placer en mémoire écran (&CO000) puis les 
sauver ensemble sous le nom AGENT2.BIN. 
Le listing 002, lui, charge AGENTI.BIN en &3E8 (sa pla- 
ce habituelle) et AGENT2.BIN en &C000 (mémoire 
écran, d'où appararition de petits traits). Ensuite, 002 
Implante une petite routine en 800 Juste au-dessus du 
programme AGENTI. Cette routine est chargée de 
recopier le bloc mémoire à partir de &C000 vers 
l'adresse &73E8 (adresse normale de AGENT2.BIN) puis 
elle lance automatiquement le programme ains| re- 
constitué avec un CALL &7424 (ou 29732). 


f\ près de nombreux appels de lecteurs ayant eu 


CODIN EN 


18 ARC: F=RDCOB:L= ABB: VHILE AC:F:FOR A=A TO A+I5:READ Ct:K= 
VAL" &"4C$):1F A<=F THEN POKE A,K 

28 NEXT:READ D$:WEND 

38 SAVE "a5",b, 8CA88,L1CSE 

95 DATA FC,FE,4D,94,FC, AA, 47,85, 89,FE,FE, 4D, 84, FC, AA, 4D, 9991 
198 DATA 95,99,FE,FE, 4D,#4,FC, AA, 40,85, 99,55, FE, 4D, 84, FC, GGEA 







18 OPENOUT "d":MEMORY &3E7:CLOSEOUT 
28 LOAD "ai", k3E8 

38 LOAD ‘a2",&1FEB 

49 LOAD "a3", L3BE8 

58 LOAD ‘a4",&57E8 

88 SAVE "agent1.bin",b,&43E8, 47889 
98 LOAD ‘a5",&C899 

198 LOAD "a6", &DCI# 

119 SAVE “agent2.bin",b, &CB99, &2F3E 


(el A:7 


18 MODE 2:0PENOUT"d":MENORY 999: CLOSEOUT :LOAD “agent 1°, k9EB:LOAD 
“agent2",&CS89:FOR n=898 TO B13:READ a$:POKE n, VAL ("&"+a$):NEXT: 
CALL 888 


28 DATA 21,98,C8,11,E8, 73,81,3E, 2F, ED, B#, CD, 24, 74 
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BON DE COMMANDE Aa He de Pan 35170 BRUZ 


Pour chaque article, entourez le ou les n° choisis. 

ANCIENS Nos AMSTAR & CPC 

N°26-77-28-29-3%-31-32-33-34 25 F (unité) 
. 35-36-3839 4041-42-43 44-45-4647 26 F [unité] 


DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24- 25-26-27 28-29-30 110 F {unité) 
{une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 140 F (unité) 


ANCIEN No CPC Infos 
N°24-25—26-27 26 F (unité) 


DISQUETTES CPC Infos Abonné : 

— MEGA SOUND 110 F {unité) 
— N° 31 (AnvStor 48 & CPC Infos 24) Non abonné : 
— N° 32 (CPC Infos 25 & 26) 140 F (unité) 


ANCIENS Nos CPC :s 
N° 11—13—16-—18-—23- 24-25-96 25 F (unité) 
27-28-2930 31-32—33- 34-36-37 


ANCIENS Nos HORS-SERIE CPC æ 
N°4-7-8-9-10- 12-13-14-15-16 21F (unité) 
N°17-18-19— 2021 — 22-23 23 F (unité) 
DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC | 
N°1-2-3-4-5-6-7-8-9-10-11-12—13—14-15-16-17-18—19 Abonné : 
(une disquette réunit 2 numéros consécutifs de CPC) 110 F {unité} 
HS1 — HS2 — H53 — HS4 — HS5— HS6 — HS7 — HS8 — HS9 — HS1O — HS11 Non abonné : 
HS12— HS13— HS14— HS15— HS16 —HS17 — HS18— HS19 — HS20 — HS21 - HS22 - HS23 140 F {unité 
ABONNEMENT 6 DISQUETTES (non rétroactif) 


DISQUETTES “ ARCADES” Téléchargement AMSTRAD CPC 
CABLE pour téléchargement 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 
Pour tout envoi par avion : Q Facultatif : recommandé + 10 F par commande 
prendre contact avec le service commercial MONTANT GLOBAL 
Je joins mon règlement :  Q chèque bancaire Q chèque postal  Q mandat | CPC Infos 28 
PAYEZ PAR CARTE BANCAIRE 


Date d'expiration || Signature 


[inscrire les numéros de la carie, la date et signer] Mille: 
ECRIRE EN MAJUSCULES 


Date et signature Signature Afin de hociliter le raitement des commandes, nous remercions notre aimable clien- 
St RUN =. tèle de ne pas ograler les chèques, et de ne rien inscrire au dos. 








Commande : La commande Goi comporir 1ous les renseignements Gemandés sur le bon de commande (désignation ou référence si cale-di exisie). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente est 
condus dès acceptaon du bon de commande par notre société, eur les aricies disponibles uniquement. 

Les prix : Les prix indiqués sont vaiaties Au jour de La parubon du catalogue jusqu'au mois auvant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarits au moment de la fabrication du catalogue, et de 
variation de prix importarte des lournisseurs. 

Livraison : La Im aison intertenrt après le régiement Les délais de ivraison étant de 10 à 15 jours emdron, SORACOM ne pourra bte tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Traneport : La marchandise voyage aux feques et péris du destinataire La Im aison se faisant par coËs postal ou par Kaneporieur. Les prix indiqués sur le bon de commande sont valables sur toute la Francs métropolitaine, + 20 F par 
ardcie pour Outre-Mer per ation et au-dessus de 5 kg nous nous réservons la possibilité d'ajuster le prix de r'aneport enfonction du coût réel de celui-ci. Pour bénéficier de recours possible nous Inions noire aimable clientèle à opter pour 
l'envoi en recommandé. À récephon des paquets, toute détérioration dait dre signalée Réciametion : Toute récdamaton dok intervenir dans les dix jours suivants la réception des marchandises. 











M. FAUQUET - S. ST-MARTIN - C. VEYRE 


Valable pour CPC 464 - 664 - 6128 


Suite de Plumpy, il ne reste plus qu’à taper et exécuter les programmes : DATA3 (suite du précédent numéro), 
DATA4, DATA5 et DATA6. 
Le programme ci-après est le loader, tapez et sauvez-le sous le nom PLUMPY et faites RUN “PLUMPY 
pour lancer le programme. 


18 ' PLUMPY (C) 1999 

28 ' CPC INFO 

38 ' M.FAUQUET & S.ST-MARTIN 
49 ? 


58 FOR if TO 15:READ a:INK i,a:NEXT i:BORDER Z:MODE S:MEMORY &1FFF:LOAD"PLUMPYO1.BIN",&2999:CALL &2899:CALL &BB18 
69 CLS:OPENOUT"S":MEMORY LSFF :LOAD"PLUMPY9#.BIN", &699 : CLOSEOUT : INK 2, 15:CALL 8608 


78 DATA 9,11,17,18,5,26,25,24,6,23,3,4,9,8,1,19e 


4629 DATA 88,42,21,61,A1,CD,D1,9F, 11,44, 43,21,6B, A1,CD,6B4 
4639 DATA 19,A8,C3,FF,9D, 1E, 98,21, 9C, A1,91,8E, F4, ED, 49,63C 
4649 DATA 86,F6,ED, 78,E6, 39, 4F,F6, C9, ED, 79, ED, 49, 91,92, 8AB 
4659 DATA F7, ED, 49,3E, 48, 96,F6, ED, 79,96,F4, ED, 59, 72, 23, 7D9 
4669 DATA 3C,1D,29,F2, 81,82, F7, ED, 49,91, 99,F6, ED, 49, 3A,68B 
4678 DATA 13,A1,FE,EF, CA, 98,9F,06,F5, ED, 78, 1F,38,FB, 21, 7DD 
4688 DATA C2,5C,11,C1,5C,91,3F,99,ED,B8,21,C2,64,11,C1,642 
4698 DATA 64,81,3F,99,ED,B8,21,C2,6C,11,C1,6C, 81,3F, 99,58 
4789 DATA ED,B8,21,C2,74,11,C1,74,81,3F, 99, ED, BB, 3E, 49,695 
4718 DATA 32, AB,9F,CD,9E,9F,3E, 68, 32, AB,9F,11,CB, AG, CD, 779 
4729 DATA 11,9F,21,C2,44,11,C1,44,81,3F, 99, ED, B8, 21,C2,5AD 
4739 DATA 4C,11,C1,4C,91,3F,98,ED,B8,21,C2,54,11,C1,54,5A4 
4748 DATA 91,3F,89,ED, B9, 34, 8B, A1, 3C, 32, 0B, A1,FE, 92, 28, 4FD 
4758 DATA 3F,AF,32,9B, A1, 2A, BE, A1, 7E, 23,22, BE, A1, 87, 28,656 
4769 DATA 28,FE, 28,28, 32,FE, 2C, 28, 33,FE, 2E, 28, 34, FE, 3A,5E5 
4778 DATA 28,35, D6,48,47,11,9E,08,21,C1, A2, 19,18, FD, 11,494 
4789 DATA FF,44,81,92,87,EB,CD,C9,9F, 18,98, 21,C8, A1, 22,628 
4798 DATA BE, A1, 18,C5,CD, 88,89,C3,FF,9D, 21,78, A1, 18,E1, BAC 
4899 DATA 21,94,A1,18,DC, 21, A2, A1,18,D7, 21,86, A1, 18,D2,6CF 
4819 DATA CD,69,88,C3,68, A6, 11,6F, A8, 96, LE, 1A,6F, 13, 14,598 
4829 DATA 67,FE, 74,28, 7F,FE, 7C,28, 7B,FE, 44, 28, 6A, FE, 4C, 7BB 
4839 DATA 28,66,FE,54,28,62,FE,5C,28,5E,FE,64, 28, 5A,FE, 72C 
4849 DATA 6C,28,56,FE, 74,28, 52, 7E, FE, 6B, 29,92, AF, 77,CD, 6D2 
4858 DATA A4,9F,CD,A4,9F,7E,F6,08,28,93,3E,6B, 77, 7C, 12,698 
4869 DATA 1B,7D,12,13,13,34,87,A1,E6,81,3C,E6, 91, 32,07,3F5 
4879 DATA 41,28, 15, AF,32,43,9F, 32, 44,9F, 32, 45,9F, 32,93, 589 
4889 DATA 9F,32,94,9F,32,95,9F, 18,11,3E,CD,21,A4,9F, 32,634 
4899 DATA 43,9F,22,44,9F,32,93,9F,22,94,9F, 18,86,C9, 7D,67C 
4999 DATA FE, BA, 38, A9, CD, A4,9F, CD, A4,9F, 18,B6, 7D,FE,56,958 
4919 DATA 38,90, AF, 77, 18,EF, 7C,C6,98,67,E6,C8,FE, 48,C8,856 
4928 DATA 7C,D6,49,67,7D,C6,64,6F, DS, 24, 7C,E6,87,C8, 7C, 7AB 
4938 DATA D6,88,67,C9,C5,ES5, A, 77,23, 13, 9D,28,F9,E1,C1, 747 
4949 DATA CD, A4,9F,19,F8,C9, 7E,B7,C8,FE, 25, 28,21,FE, 3A,875 
4959 DATA 28,22,FE, 2C,28,24,E5,D5,D6, 48,47, 11,8E, 89, 21,517 
4969 DATA 2D, A4, 19,19,FD,D1, 81,92, 97,D5,EB,CD, C8, 9F,D1, 78F 
4979 DATA E1,13, 13,23, 18,D3,E5, 21,86, A1, 18,EB,E5, 21,94,6DF 
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4989 DATA A1,18,E5,E5,21,B9, A1, 18, 1E, 7E,B7,C8,FE, 28,28, 76E 
4998 DATA 21,FE, 3A, 28,22,FE, 2D,28,EB,E5,D5,D6, 49,47,11, 799 
5998 DATA 8E,98,21,C1, 2,19, 19,FD,D1,91,92,97,D5,EB,CD,628 
5819 DATA C9,9F,D1,E1,13,13,23,18,D3,E5, 21,86, A1,18,EB, 775 
5929 DATA 96,64,C5,E5,D5,96, 88, 1A,77,CD, A4,9F, 13, 19,F8,6B3 
5439 DATA D1,E1,23,C1,18,ED, C9, 39,C8,C3,F8,F8,C3,C0, 38, SA2 
5949 DATA 93,8C,FC,F8,F8,FC, 8C,93,CF,CF,F3,3C,3C,F3,CF,6C1 
5958 DATA CF,33,33,FF,3C,3C,FF,33,33,93,8C,FC,F9,C3, C9, 78F 
5969 DATA 38,3F,01,32, 92,32, 83, 8A, 86, 22,97,23,0C,0C,8D, 15A 
5878 DATA 44,09, 09, 00,08, 00, 00,69, 08, 00,09, 00,99,00, 99, 4A 
5989 DATA 08,08,09,00,00,00, 00,09, 00,09,08,00,05,98,06,0 
5898 DATA 99,09,00,09,05,68,08,09,00,08,98,08,99,00,09,80 
5199 DATA 68,60,09,06,09,00, 00,09, 00,00,06,09, 06,09, 08,90 
5119 DATA 89,08, 09,09,09,09,08,09,00, 09,00, 00,98,90,99,9 
5128 DATA 98,98,09,00,00,00, 69,09, 80,00, 08,00,06,06,06,9 
5138 DATA 89,09, 98,00,08,08,69,08,00,09,00,00,00,00,88,9 
5149 DATA 99,60,09,08,99,09,00,00,00,00,06,00,00,09,90,9 
5159 DATA 99,96,09,09, 09,09, 09,09, 08,08, 69,98,88, 89, 2D,2D 
5169 DATA A4,49,44,45,45,29,45,54,29,47,52,41,58, 48,49, 44F 
5178 DATA 53,4D,45,53, 28,34, 98,53,54, 45,58, 48,41, 4E, 45, 3EA 
5188 DATA 28,53,41,49,4E,54, 2D, 4D, 41,52,54, 49, 4E, 98,59, 3E7 
5198 DATA 52,4F,47,52, 41, 4D, 4D, 41,54, 49, 4F, 4E, 29, SA, 89, SEA 
5289 DATA 4D,49,43,4B,41,45,4C,28,46,41,55,51,55,45,54,431 
5218 DATA 89,4D,55,53,49,51,55, 45,28, 3A,08,43,45,44,52,3A1, 
5228 DATA 49,43,28,56, 45,59, 52, 45, 99,68, 00,09, 08,09,90,237 
5238 DATA 89,00, 08,00,08,08,00,08,00,00,59,08, 99,00, 90,50 
5249 DATA 98,58,09,09,98,00,00,00,09,00,00,00,00,08,00,58 
5258 DATA 89, 82,99, A8,58, 08, 08, 80,09,00,96,00, 90,80, 14,186 
5268 DATA 98,68,99,09,98,09,80,00,09,00,90,0C,0C,09, 00,18 
5278 DATA 89,08,09,09,CB,A1,55,54, 49, 4C, 49,53, 45,54, 29, 3FA 
5288 DATA 4C,45,53,29,54,4F,55, 43, 48,45,53, 29, 3A, 29,59, 3E9 
5298 DATA 29,58,4F,55,52,28,56,4F,55,53,28,44,45,58, 4C,418 
5399 DATA 41,43,45,5A,28,41,29,44,52,4F, 49,54, 45,2C,29, 3B7 
5318 DATA 4F,29,59,4F,55,52,28,56,4F,55,53,28, 44, 45,59, 41B 
5329 DATA 4C,41,43,45,5A,28,41,29,47,41,55,43, 48, 45,20, 3C9 
5339 DATA 29,45,53,58, 41,43, 45,29,58,4F,55,52,28,54, 49, 3F4 
5349 DATA 52,45,52,2C,28,51,29,59, 4F,55,52,29,53, 41,55, 3F5 





5359 DATA 54,45,52,2C, 28, 49,28,58,4F,55,52,28, 4C, 41,29, 3B3 
5369 DATA 58,41,55,53,45,2C,29,45,54,29,53,29,58,4F,55, 3EA 
5378 DATA 52,28, 43, 4F, 4D, 4D, 45, 4E, 43, 45,52,28,2E, 2E, 2E, 3B5 
5389 DATA 2E,2E, 28, 4D, 41,49, 4F,54, 45,4E,41,4E,54,2ÿ,41, 3CC 
5398 DATA 29,56, 4F,55,53,29, 44, 45,28, A, 4F,55, 45,52, 29, 3DB 
5499 DATA 2E,2E,2E,2E,2E,29,59,55, 42,20, 28,59,55, 42, 2C, 34C 
5419 DATA 29,59,55,42,2C,28,4E,45,29,52, 41,54, 45,5A, 29, 3AC 
5428 DATA 58,41,53,28,4C,41,28,53, 4F,52,54,49, 45,29, 44, 3EB 
5439 DATA 45,29,58,59,58, 48, 4F,45,53,28,46,41,4E,54,41,41F 
5449 DATA 53,59,29,2E, 2E,2E, 2F, 2E, 2E, 2F,2E,2E,2F, 2E,2E,2F4 
5458 DATA 2E,2E, 2E,2E, 2E, 28, 98,91, 09,02, 82,98, 88, 0C, 96, 12F 
5469 DATA 28,28, A8, A8,08,09, 93,99, 92,02, 60,09, 98, 98,28, 1DB 
5479 DATA 28, F9, 99,09,09,03,92,02, 02,06, 69,88, 96, 28,28, 181 
5489 DATA F8, A9, 60,09,03,00, 92,92, 98,98, 08,08,28,28,F8,2F7 
5499 DATA 69, 09,09,03,02,92, 98, 0C, 08,68, 90,28,88,F9, AG, 1D3 
5599 DATA 98,69,93,92,92,99,0C, 99,08, 09, 28,06, A, 90, 08,E3 

5519 DATA 99,03, 02,02,06,08,98, 98,98, 28,28,F8, 8,80, 80, 1FF 
5528 DATA 92,82,92,02, 0C,08, 88,08, 28, 28, AB, A6, 08, 98,03, 1BF 
5539 DATA 92,01,60,04,00,04,08,14,09,F0,A0,08,869,00, 92, 1B1 
5549 DATA 09,02,00,08,08, 08, 28,28,F6, A8, 00,08,02,92,92,209 
5559 DATA 82,00, 69,98, 08, 28,28, A8, A6, 09, 98,02, 88,82, 50, 1B2 
5569 DATA 96,98,08,98,28,99,F0,A9, 90,00, 02,92,93,92,88, 1D9 
5578 DATA 98,98, 98, 28, 28, AB, AB, 08,09, 03,92,92,92,88, 98, 1C1 
5589 DATA 98,98, 28,28, AG, A9, 08,99, 93,02, 02,02,08,98,98, 1C1 
5599 DATA 88, 28,28,F8, AS, 98, 08,93, 92, 02,92,98,B8, AC, 88,215 
5698 DATA 28,68, A0,09,060,90, 83,02, 92,02,08,98, 98,98, 3C, 12D 
5619 DATA 28,F9, A9, 08, A8, 93,92, 92,02, 88,08, 0C, 96, 28, 28, 2CD 
5628 DATA A, A8,09,00,03,02, 82,09, 8C,08, 08,88, 08, 28,F8, 27B 
5639 DATA A9,09,09,03,92,81,08,04,08, 04,98, 14,69,59,89,112 
5649 DATA 98,98,92,02, 02,92, 08,08, 98,08, 28,28, F5, AB, 08, 258 
5659 DATA 89,02, 02,02,02,08,08,98,986, 14,90,58, 89,99, 89,6C 

5669 DATA 92,02, 92,02, 68,08, 98,98, 3C, 28, AD, A9, 06, 09,92, CE 
5679 DATA 82,02,02,04,06,04,00,28,28, AB, A6,00, 69, 82, 02, 1A2 
5689 DATA 92,92,98,08,04,90,14,09,59,09,00,09,03,02,00,81 

5699 DATA 92,64, 09,04,09,28,08,F8, AB, 68,08, 19, 50,29, 29,212 
5799 DATA 88,88,C9,88, 82,82, A9, AG, 09, 68, 38,09, 29, 20,CB,5B4 
5719 DATA 89,89,89,82, 82,F8, 08, 00,08, 30, 28,28,29,80,89, 494 
5729 DATA 69,98,82,82, FO, A9, 89, 00, 36,00, 29,29, 89, 89, 88, 584 
5739 DATA 89,82,82,F8, 99,09, 08, 39, 28,28,68,C0,68,88,89, 424 
5749 DATA 82,99,F6, A9, 69,09,36, 29, 26,80, C0,00, 80, 99,82, 444 
5758 DATA 89, A6, 09,06, 08,30, 29,28,08,89,08,80, 88,82, 82, 394 
5769 DATA F#,A9,90,09,29,29,29,29,C9,89, 85,88, 682, 82, AB,5F4 
5778 DATA A9, 69,09, 30,28,19,00,49,08,49,08,41,99,F0, A9, 351 
5789 DATA 99,09,09,29, 90,29, 09,69, 89,89, 82,82,FD, 6,08, 454 
5798 DATA 99,29,29,29, 26,C8, 08,88, 68, 82,82, AG, AB, 09, 89, 484 
5699 DATA 28,08, 20,08, 80,00, 80,98, 62,08,F8,A8,08, 99,28, 372 
5818 DATA 29,39, 29, BD, 85, 68, 88, 82, 82, A9, A6,08, 68, 36, 29,594 
5628 DATA 28,28,89,88, 86,89, 82,82, A6, A9,06,00, 38,28, 2B, 4F4 
5839 DATA 29,89, 88, 69, 89, 82, 82,F8, A8, 60, 99,38, 20,28, 29,544 
5849 DATA 88,88,C9,89, 82,90, A9, 08, 49,09, 35,28, 28,28, 88, 472 
5859 DATA 69, 89,88,C3, 82,F8, AB, 08, A8, 38, 29,28, 29, 88,69, 685 
5864 DATA CS,08,82,82, A9, A6, 66,00, 35,29, 20,08, C0,69, 90, 4B4 
5878 DATA 89,69, 62,F9, A9, 98, 00,38, 28, 19,96,49, 99, 49, 89, 372 
5888 DATA 41,09,59,09, 89,99, 29, 29, 28,28, 69,85, 85,89, 82, 393 
5898 DATA 82, F9, AS, 88,09, 28, 29, 29,28, 88, 88,88, 88, 41,89, 4D3 
5998 DATA 58,98,40,08, 29,29, 29, 29,88, 88,88,88,C3, 82, AB, 4B5 
5919 DATA AS, 09,00, 29, 29, 29,28, 49,68, 49, 90,82, 82, A9, A9, 3E4 
5928 DATA 98,98,29,29, 26,29, 80,89, 49,08,41,08,58, 08, 08,251 
5939 DATA 89,39, 28,98, 25, 48,08, 48,68,82,98,F8, A9, 8, 9A, 38C 
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DNXYE . BAS 


18 ‘ DATAS à 
28 ' 
38 MODE 2:AD=&CB99:NL=98 


48 FOR A=1 T0 97:B=8:FOR C=1 TO 15:READ At 

58 POKE AD, VAL("&"+A$) :B=B+PEEK(AD) :AD=AD+1 

68 NEXT:READ Ef:IF VAL("&"4E$)C)B THEN 88 

78 NL=NL+19:NEXT:SAVE"PLUMPY12. BIN",B, &CH89, &5B1 :CLS:END 
88 CLS:PRINT'LIGNENL;" INCORRECTE" : END 

98 DATA 69,51,51,45, 68, 89,00, 00, 80,00, 99,09, 09, 09,09, E7 
199 DATA 09, 00,08, 60,09, 00,08, 00,09, 00,09, 60,60,00,08,0 
119 DATA 09,80, 09, 00,09, 00,06,09,08,09,08,00,08,09,08,8 
128 DATA 09,00,08,00,08,06,09,09,99,08,45,E7,E7,00,90,213 
138 DATA 99,80, 09,99,09,06,09,09,06,09,00,00,08,09,60,0 
148 DATA 09, 00,08, 00,08, 00,08, 00,99, 00,08,00,09,09, 99,0 
159 DATA 99, 80,99, 80,09, 06,00,00,00,08,69,00,09,08,8F,F 
168 DATA 84, 06,08,00,E7,47,02,00,00,09,00,09,00,09,00,13A 
178 DATA 80,90, 00, 80,00, 00,08, 00,09,08,09,09,08,09,08,0 
188 DATA 09,60,08,00,00,00,08,09,90,00,90,09,00,09, 00,0 
198 DATA 99,89,00,99,00,00,09,05,0F,0F,08,09,08, 47, 38,94 
260 DATA 29,08,99,00,09,09,09,09,06,09,96,09,06,00, 00,29 
218 DATA 99,60, 80, 09,09, 00,09, 09,06,09,09,00,89,00,08,0 
226 DATA 80,09,06,08,89,00,99,00,99,80,09,00,00,00,08,0 
236 DATA 89,19,8F, 25,84, 09,09, CF, 38, 30, 19, 30, 28, 19,38, 21D 
249 DATA 38, 26,99, 30, 39, 00,60,00, 09,00, 19, 39,39, 20,00, 148 
259 DATA 19,39, 29, 08, 30, 39,06, 00, 36, 30, 18, 30, 28, 19,38, 1CO 
268 DATA 36, 29,08, 38,39, 60,08, 39, 38,80, 48, 25,99, A, 00, 20F 
278 DATA 51,94,89, 79, 49,69, 29,60,68,68,68, 00,98, 98,88, 5EB 
288 DATA 89,08,00,8,49,68,69,29,09,49,69, 29,19,99,98,318 
298 DATA 89,19,90,98, 49,69, 29,60,69,69,68,69,98,98,68,518 
360 DATA 89,98,99,88,59,0F, A5, 0A,06,01,94, 34, 35, 19,98, 458 
319 DATA 99,99, 80,19,99,89,69,60,68, 09,08, 00,68,09,98, 3F4 
329 DATA 99,88,00, 18,96, 88,49,60,68,69,60,69,69, 19,98,558 
339 DATA 99,99, 89,19,99,89,66,69,06,09,08,68,28,15,9F, 344 
349 DATA 2F, 04,96, 98, 2, 30,38, 49,C8,C0,88, 09, 49, C9, 89, 4FB 
350 DATA C4,C6, C9, 09,09, 06,06, 09, C8, C9, 89, 08, 49, CB, BB, 5C8 
369 DATA C9, C8,CO, CB, CB, CA,C8, 49,C8, C9, 86,88, 40, CO, 80,908 
376 DATA C8,C0,89, 99,08, CO, C9,05,0F,0F,09,08,98,9A, 58, 48D 
389 DATA 99,49,C2,C2,98, 08,48, C2,82,41,C1,C1, 86,80, 08, 508 
399 DATA 89,49,C2, 82, 80,08, 49, C2,82,C1,C1,88,C1,41,C1,6CD 
489 DATA C1,49,C2, C2, 88,68, 46,C2,82, 41,C1,C1,08,89,C1,68D 
419 DATA C1,89,80,85,89,08,51,CE, 38, 29,41, C1,68,99, 08, 387 
429 DATA 41,C1,88, 68, C2, C2,88,69,06,00,41,C1,86, 80,09, 488 
436 DATA 41,C1,89, C2, C2,09,C2, 90, C2, C2,41,C1,88,989,68,6CE 
449 DATA 41,C1,89,98,C2, C2, 82, 49, C2, C2, 90, 0F, 4B, A, 89, 5B8 
458 DATA 81,9B,98, 89, 41,C3,82, 99, 41,C3,C3, 82, 88,C3, C3, 799 
469 DATA 99,08,89,08,41,C3,82, 09,99, 41,C3,82, C3, C3, 08, 492 
478 DATA C3,89,C3,C3,41,C3, 82, 99, 41,C3,C3, 82, 98,41, C3, 71C 
488 DATA C3,C3,C3, 82, 98,87, 48,82, 98,45, 31,C8,C2,41,E1,601 
498 DATA A8,89,E1,E1,Et, 9,96, D2,D2, 69,68, 89,98, 41,E1,6A9 
589 DATA A6,80,98,41,E1, A9,D2, D2,98,59,98,D2, D2, 41, E1, 71C 
518 DATA A9,89,E1,E1,E1, A9, 99, 09, D2, D2, D2, D2, 68,81, 69, 735 
529 DATA 44, 82,96, 45,39,62,C3,59,F8,F0,F8,FO,F8,FO, 99,856 
538 DATA 88,F8,F9, A9, 09, 06,09,59,F6, A9, 09,08,58,F8, A8,649 


549 DATA F8,F0,98,00,08,F8,F8,59,F8,F0,F,FO,FO,FO,60,9B8 
559 DATA 99,80,59,F6,F9, A6, 98,04,93, 4A, 88,09, 45,9A,62, 4E2 
569 DATA D2, 11,33, 33,33, 33,33, 88,88, 11, 33,33, 33, 33, 33,2F2 
578 DATA 98,11,33,33, 89, 89, 33, 33, 22, 33, 33, 22, 08, 88, 33, 1BA 
589" DATA 33,11,33, 33,33, 33,33, 98,08, 90,06, 11,33, 33,8, 1BA 
598 DATA 89,14, AC, 8F,89,99,09,9A,C1,F8, 11,33, 22,98, 68, 488 
689 DATA 98,09,05, 33, 33, 33, 33, 33, 33,22, 11,33, 33,89, 89, 1CB 
618 DATA 33,33, 22,33, 33, 33, 99, 9, 33,33, 11, 33, 22,88, 98, 1ED 
628 DATA 99, 09,08,08,99, 33,33, 22,98,88, 14, AC, 97,8A,80,159 
639. DATA 99,39,C1,D2, 11,99, 88, 89, 08, 09,98,50,66,66,66, 427 
649 DATA 66,66,66,66, 88,99, 99, 88, 11,99, 99, 98, 44,66,66,5AS 
659 DATA 89,96,66,66, 11,99, 88, 99, 99, 89,06, 09,08, 44,66, 2A8 
669 DATA 66, 99,98, 80, 14,8C,97, 9A,8A, 19,31,C1,63, 44,66, 2B8 
679 DATA 22,89, 89, 99,99, 69,99, 99, 88,98, 68, 11,99,98,66, 2EC 
689 DATA 66,66,66,66,66, 99, 11,99, 99, 9, 98,99,99, 44,66, 51D 
699 DATA 22, 89,90, 89,89, 09, 99,99, 99, B8, 99, 99, 08,04,84, 264 
798 DATA 42,0F,0A,38,99,C4, 22, 14,9C, 88,98, 89,89, 09,66, 342 
719 DATA 6C,6C,98,89,99,89,6C, 09, 14,9C,9C,9C,9C,88, 88, 458 
728 DATA 98,6C,6C,89,88,6C,6C, 14,90, 88, 99,99, 99,089, 99, 2E8 
739 DATA 89,60, 6C, 89, 99,99, 98,41,84,C2,8F,68,98,98,98,26E 
749 DATA 66,00,00,00,08,09,08,00,99,09,066,08,00,09, 80,9 

750 DATA 66,89,89,99,09,09, 06, 00,06,00,90,00,66,08,98,9 

769 DATA 99,90,06,00,08,69,06,08,99,09,96,08,09,09, 60,0 

770 DATA 99,69,80,60,609,09,06,08,06,06,98,00,68,08,99,8 

789 DATA 99,90,06,60,08,00,66,09,96,00,89,00,06,09,06,0 

798 DATA 89,99,89,89,09,09,09, 09,08, 09,69,98,66,08,98,8 

888 DATA 99,00,08,09,98,09,68,00,09,09,99,09,89,09, 60,9 

819 DATA 99,80,00,80,99,09,96, 00,06, 00,09,08,08,08,98,5 

828 DATA 99,06,66,60,08,60,88,08,99,08,96,09,99,09, 60,0 

638 DATA 98,99, 89, 60,89, 60,09,00,06,09,99,09,08,08,09,9 

649 DATA 9,09,06,00,09,60,09,06,06,09,06,09,90,09, 66,8 

859 DATA 88, A9,F0, AG, 9,06, 99,08, A9,58,F8,59,F8,58,F8, 738 
868 DATA 99,99,59,F6,59,50,58,F4,58,F4,58,F0,58,F9,89,6ES 
870 DATA 89,80, A0,89,09,59,F8,59,F0,58,F89,00,08,08,08, 469 
888 DATA 99,69,00,69,68,60,09,09,68,41,96,62, 82, 41,85, 186 
898 DATA 99,41,82,41,41,41,41,41,41,98,98, 41,41, 41,C3,3CF 
994 DATA 41,99,88,82,41,41,41,41,98,99,41,41,89,09, 41,284 
919 DATA 41,41,41,41,41,09,99,09,09,08,99,09,05,98,98,145 
929 DATA 69, 00,99,49,88,89, 08,46, 68,09,80,89, 40,49, 49,249 
938 DATA 48,49, 49, 80,00, 49,48, 49,49, 49,C8,69,88, 48,48, 3C8 
948 DATA 49,49,08,00,99,69,69,68,49,09,48,49,49,00,09, 298 
958 DATA 99,89,80,60,09,90,09,00,09,09,98,08,48,08,88,C9 

968 DATA 69, 49,99,06,66,89,48,C9,48,C9, 49,49, 99,69, 48,388 
976 DATA C9,49,49, 99,49, 69,89, 49,C9, 49,69, 59,68,08,88, 448 
988 DATA 89,69,49,69,49,C9,49,09,88,09,90,09,00,00, 09,298 
999 DATA 98,89,89, 99,09, 66, 19,09, 29, 29, 19,99,98,08, 28,68 

1989 DATA 99,19,08,19,19,19,99,90,19, 16,19, 19,09, 19,98,98 
1818 DATA 28,19,19, 19, 19,98,966,19,19,98,88,19,19,19,99,B8 
1928 DATA 19,19,88,09, 08,09, 66,09,06,06,09,09,00,09,09,28 
1839 DATA 06,29,38,20,28,08,98, 19,38, 19,38, 19,38, 19,39, 199 
1949 DATA 99,98,19,19, 19, 19,19, 39,08, 29, 19,19, 10, 19,98,E8 
1858 DATA 86,19,28, 29,68, 19,38, 18,98, 19,39,99,69, 09, 80,ES8 


DIN . BAS 


19 " DATAS 5 
28 ! ee ou orme 





38 HODE 2:AD=&C898:NL=98 

49 FOR A=1 TO 373:B=8:FOR C=1 TO 15:READ A$ 

58 POKE AD, VAL("&®+A$) :B=B+PEEK(AD) :AD=AD+{ 

68 NEXT:READ E$:IF VAL("&"+E$) OB THEN 88 

78 NL=NL+18:NEXT:SAVE"PLUMPY21.BIN",B, &CH89, &1AB7:CLS : END 
88 CLS:PRINT"LIGNE"NL;" INCORRECTE" : END 

98 DATA #1,8C,7F,ED, 49,CD, FC, 9D, 3E, 83, 32, 3C, AG, 21,99,618 
188 DATA 99,22, 36, A6, 22,38, A8, 22, 3A, A8, SE, 6D, 32, E2, A3,578 
118 DATA FD,21,3D,A9,21,89,C9,54,5D,91,FF,3F, 75, 13,ED,641 
128 DATA BS,CD,F6,9C, CD, 87,9D,CD, 19,9D, DD, 21,81,59, 2A, 77C 
138 DATA 39,8B,11,E1, 99, 19, 22, 39, 8B, 3A,EB, A3, 3C, 32, EB, 5D6 
149 DATA A3,FE, 91,28, 1B,FE, 92,28, 12,FE, 83, 28,99, AF, 32,532 
158 DATA EB, A3, 21,BB, 31,16, 90, 21, BB, 2F, 16, 88, 21,BB,2D, 4F4 
168 DATA 18,93,21,BB, 2B, 22,61, A8, 3A,EC, A3, 3C, 32, EC, A3, 69B 
178 DATA CD, B2,9E, CD, A1, 90, 96, F5, ED, 78, 1F, 39,F9,21, FD, 8ED 
188 DATA 2A,ED,5B,58,68,DD,21, 1A, A3, ED, 53, 18, A3, CD, 39,6EE 
198 DATA 9E,21,D7,2A, ED, 5B,5C, 68, DD, 21,58, A3, ED,53,4E, 74B 
288 DATA A3,CD,39,9E,21,2B, 28, ED, 5B, 54,68, DD, 21, 86, A3,6EF 
219 DATA ED, 53,84, A3, CD, 39,9E, 21, 13, 24, 11, 8D,C7,DD, 21,606 
228 DATA CA, A1,ED,53,D1,A3,CD,39,9E,21,57,27, 11, 8D, C2, 7C2 
238 DATA DD, 21,86, A2, 22, C9, A3, DS, CD, 39,9E, D1, 96, F5, ED, 8E6 
249 DATA 78,1F,38,FB, 3A, DA, A3,B7,C2,36,99,3E,F7,32, 42, 761 
259 DATA 8F,3A,CB, A2,B7, 29,96, 13, 1A, 1B,B7,28,44,AF,32,557 
268 DATA 42,6F,32,58,6C, CD, DA, 9F, CD, 8D,98,CD,C8,99, 34,876 
278 DATA Ei,A3,B7, 29,26, CD, DA, 9F,CD,C8,98,3A,EL,A3,B7,961 
288 DATA 28, 1A,CD,DA,9F,CD,C8,98, 3A,E1,A3,B7,29,8E,CD,815 
299 DATA DA,9F,CD,C8,99, 3A,E1, A3, B7, 28,92, 18,93,C3,94, 7A7 
389 DATA 92,3E, 84, 32,FE,91,CD,F5,9B, 3A,C5, A3,FE, F7, CA, 953 
319 DATA 85,6F,34,C3,A3,FE, F7, CC, 48,6F,3A,C4,A3,FE, 7F,96A 
328 DATA CA,62,9B, 3A,C2,A3,FE,F7,C2,C8, 8D, 13, 13, ED, 53, 8D8 
338 DATA DB, A3, CD, EB,9F, 86, 98, 13, 13, 13, 1A,B7,28,4D,CD,624 
349 DATA E8,9F,19,F7,ED,5B,DB, A3, 13, 13,86, 12, 2A,CF, A3, 72E 
358 DATA 7C, BA, 28,84, 7D, BB, 28, 35,CD,E8,9F, 18,F3,ED,5B, 78E 
368 DATA DB, A3, 3A,E2, A3,3C, 30,32, E2, A3, 3A,FE,91,B7, 28,814 
378 DATA 88, AF,32,FE,91,3E, 95, 18, 92,3E, 91,32, 2D, A4, 34,451 
388 DATA BB, A3,EE, 81,32, BB, A3, CA, C2, 8D,21,8F,28,C3,2F, 748 
398 DATA 8F,AF,32,DE, A3, 21, 45, AB, 22, BC, BD, 2A, 45, AB, ED, 75E 
498 DATA 5B,DB,43,7C,B7,ED, 4B, 47, A8,C4, 69, 8D, 3A, DE, A3, 8B7 
419 DATA FE, 81,28, 7A,21,3F, A$, 22,BC, 8D, 2A, 3F, AB, ED, 5B, 65D 
428 DATA DB, A3, ?C,B7,ED, 4B,41,A8,C4, 89, 8D, 3A, DE, A3,FE, 954 
435 DATA 81,28,5D, 21,18, A3, 22, BC, 8D, 2A, 18, A3, ED, 5B, DB, 5D5 
448 DATA A3, 7C,B7,81,1A,A3,C4, 89, 8D, 3A, DE, A3,FE, 91,28, 747 
458 DATA 41,21,4E, A3, 22, BC, BD, 2A, 4E, A3, ED, 5B, DB, A3, 7C, 71B 
468 DATA B7,81,58, A3,C4, 89, 8D, 3A, DE, A3,FE, 91, 28,25, 21,6A4 
478 DATA 64, A3, 22, BC, 8D, 2A, 84, A3, ED, 5B, DB, A3, 7C,B7,81, 7DD 
488 DATA 86, A3,C4, 89, 8D, 3A,DE, A3,FE, 91,28, 89, ED, 5B, DB, 898 
499 DATA A3,1B,1B,C3,F1,91, ED, 5B, DB, A3, 3A, E2, A3,3C, 3C, 81B 
588 DATA 32,E2,A3,3A,FE,91,B7,28,88,AF,32,FE,91,3E, 95, 71Â 
519 DATA 18,82,3E,81,32,FE,91,C3,F1,91,13, 13,C5,9E, 88,569 
528 DATA 7C,BA,29,64,7B,BD, 28, 1F,CD,E8,9F, 8D, 29, F2, ED, 739 
538 DATA 5B,DB, A3, 13, 13, 13, 8E, 98, 7C, BA, 28,84, 7D, BB, 28, 4E2 
548 DATA 88,CD,E8,9F,9D,29,F2,C1,C9,C1,C5,DD,E1, CD, 7F,995 
558 DATA 9E,3E, 91,32, DE, A3, 21,99, 99, 22, 45, A9,CD,F9,9A,618 
569 DATA C9,21,59,28,C3,2F,68F,3A,C3,A3,FE,FB, C2, 3E, 6F,814 
578 DATA 1B,1B,ED,53, DB, A3,CD,E8,9F,96,98, 1A,B7,28,4F,696 
588 DATA CD,E8,9F, 19,F7,ED,5B,DB, A3,66, 12, 2A,CF, A3, 23, 7F8 
598 DATA 23,23,23, 70, BA, 26, 04, 7D, BB, 28,35, CD, E8,9F, 18,5BC 
689 DATA F3,ED,58,DB, A3, 34, E2, A3, 3D, 3D, 32, E2, A3, 3A, FE, 8E1 
618 DATA 91,B7,28, 88, AF, 32,FE,91,3E, 86, 18, #2, 3E, #2, 32, 4B8 





628 DATA 2D, A4, 3A, BA, A3,EE, 91,32, BA, A3, CA, 2C,6F, 21,57,6E3 
639 DATA 27,C3,2F,8F,AF, 32, DE, A3, 21, 45, AB, 22,26,6F,2A,611 
648 DATA 45, AS, ED, 5B, DB, A3, 7C,B7,ED, 4B, 47, A9,C4,EB,8E,93A 
659 DATA 3A,DE, A3,FE, 91,28, 7A, 21,3F, A8, 22,26, 8F, 2A, 3F, 59C 
669 DATA Aÿ,ED,5B,DB, A3, 7C,B7,ED,4B, 41, A8,C4,EB, BE, 34,929 
679 DATA DE, A3,FE, 81,28, 5D, 21, 18, A3, 22,26,8F, 2A, 18, A3, 59D 
689 DATA ED, 5B,DB, A3, 7C,B7,41, 1A, A3,C4,EB, 8E, 3A, DE, A3, BAF 
699 DATA FE,81,28,41,21,4E, A3, 22, 26,6F, 2A, 4E, A3,ED,5B,5B4 
788 DATA DB, A3, 7C,B7,91,59, A3,C4,EB,6E, 3A,DE, A3,FE, 91, 89C 
718 DATA 28,25,21,84, A3, 22, 26, 8F, 2A, 84, A3,ED,5B,DB, A3,683 
728 DATA 7C,B7,91,86, A3,C4,EB, 8E, SA, DE, A3,FE, 91, 28, 49, 785 
739 DATA ED,5B,DB, A3, 13, 13,C3,F1,91,ED,5B, DB, A3, 3A,E2,913 
748 DATA A3, 3D, 3D, 32,E2, A9, 3A,FE,91,B7,28,88, AF,32,FE, 763 
759 DATA 91,3E, 86,18,92,3E,92,32,FE,91,C3,F1,91,13,C5,69D 
769 DATA 23,23,23,0E, 98, 7C, BA, 29,84, 7B, BD, 28, 1C, CD, E8, 59A 
778 DATA 9F,8D,29,F2,ED,5B, DB, A3, 9E, 96, 7C, BA, 28,04, 7B,66F 
788 DATA BD,28,98,CD,E8,9F, 4D,24,F2,C1,C9,C1,C5, DD, Et ,92E 
798 DATA CD, 7F,9E,3E, 81,32, DE, A3, 21,98, 99,22, 45, Aÿ,CD,SD1 
898 DATA F9,9A,C9,21,B3,27,D5,22,C9, A3, DD, 21,86, A2, CD, 8AD 
819 DATA 36,9E,D1,C3, 86,92, 3A,C7,A3,FE,F7,28, 4A,C3,F1, 8BF 
828 DATA 91,E5,D5,DD,E5,FD,E5,C5,11,D9,C9,21,11, A9, CD, 9FD 
839 DATA 85,9D,81,FF,FF, 99,98, 76,B1,28,FA,CD,F5,9B, 3A, 846 
848 DATA C3,A3,FE,F7,28,F6,11,D9,C9,21,19, A9, CD, 85, 9D, 8E4 
858 DATA 81,86,39,69,9B,78,B1,29,FA,C1,FD,E1,DD,E1,D1, 7AD 
869 DATA E1,C9,AF, 32, 39,93, 32, 48, 8C,C3, 41,8C, 3E, 98, 32,65C 
879 DATA DA, A3, AF, 32, 42,8F,3E, 81, 32,ED, A3,C3,F1,91,D5, 844 
888 DATA AF,32,E0,A3,21,57,27,CD,BB,9F,EB, 2A, 3F, A9, 7C, 79A 
898 DATA B7,28,19,CD,CB,91,3A,E8, A3,B7,F5,D5,C4, 78,91,91B 
998 DATA D1,F1,29,71,2A,45, A9, 7C,B7,28,189,CD,CB,91,3A, 738 
918 DATA E8,A3,B7,F5,D5,C4,81,91,D1,F1,28,5A,2A,18,A3,8FB 
928 DATA 7C,B7,28,18,CD,CB,91,3A,E8, A3,B7,F5,D5,C4, 92,928 
938 DATA 91,D1,F1,29, 43, 24, 4E, A3, 7C,B7,28,18,CD,CB,91, 765 
949 DATA 3A,E8,A3,B7,F5,D5,C4,A3,91,D1,F1,29,2C,2A, 84, BF2 
958 DATA A3,7C,B7,28,19,CD,CB,91,3A,E8, A3,B7,F5,D5,C4,939 
968 DATA B4,91,D1,F1,28,15,2A,CF, A3, 7C,B7,28,8E, CD, CB, 7D9 
978 DATA 91,3A,E8,A3,B7,F5,C4,C5,91,F1, 29,98, D1,C9,CD,98C 
988 DATA EB,9F,CD, AG,6F,3A,E1,A3,B7,C2,94,92,CD,E8,9F,A34 
998 DATA CD, AG,8F,3A,E1,A3,B7,C2,94,92,CD,E8,9F,CD, A8, A1A 
1909 DATA 8F,3A,E1,A3,B7,C2,94,92,CD,E8,9F, CD, A9, 8F,3A, 976 
1818 DATA Ei,43,B7,C2,94,92, 7A,FE,C1,28,8C,7B,FE, 49, 38,879 
1929 DATA 97,FE,89,30,93,AF, 18,04, 3A, DA, A3, 3D, 32, DA, A3, 626 
1938 DATA 2A,C9,A3,3E, 93, 32, 2D, A4,C3,2F,8F, AF, 32, E9, A3,6BF 
1949 DATA D5,ED,5B,3F, A9, 21,63, 24, CD, BB,9F,22,E3, A3, ED, 866 
1859 DATA 5B,45,A8,21,95,2A,CD,BB,9F,22,E5, A3, ED, 5B, CF, 898 
1869 DATA A3,21,FB,25,CD,BB,9F,22,E9, A3, ED, 5B,D1, 3,21, 896 
1978 DATA 87,23,CD,BB,9F,22,F8, A3,D1,C9,AF,32,E8, A3, 3A, BBE 
1989 DATA 49,A8,B7,28, 12,2A,E3, A3, CD, CB, 91,3A, EP, A3,B7,81E 
1898 DATA F5,D5,C4,78,91,D1,F1,C8,3A, 4F,A3,B7,28, 12, 2A, 858 
1199 DATA 58,A3,CD,CB, 91,34, ES, A3,B7,F5, D5, C4, A3,91,D1, A23 
1119 DATA F1,C9,3A, 46, AB,B7,28,12,2A,E5,A3,CD,CB,91,3A, 7D7 
1128 DATA Ef,A3,B7,F5,D5,C4,81,91,D1,F1,C8, 3A, 19, A3,B7, A89 
1139 DATA 28,12, 2A, 1A, A3, CD,CB,91,3A,E8, A3,B7,F5,D5,C4, B4C 
1149 DATA 92,91,D1,F1,C9,34, 85, A3,B7, 28, 12,24, 86, A3,CD, 818 
1158 DATA CB,91,3A,E, A3,B7,F5,D5,C4,B4,91,D1,F1, CA 3ASASF 
1169 DATA D9,A3,87,28, 19,24, E9, A3, CD, CB, 91, 3AÿEA,A3,B7, 8B5 
1179 DATA F5,C4,05,91,F1,C8, SA, D2, A3,87, 28, BF, 24, FU, A3, 91A 
1189 DATA CD,CB,91,3A,E8, A3,B7,F5,C4,C5,94,F#, C9, 21,98, 987 
1198 DATA 99,22,3F, A9, DD, 2A, 41, A8,CD,7F,9E, CD, F9, 9A, C9, 7FC 
1289 DATA 21,88,06,22, 45, AG, DD, 2A, 47; A8, CD, 7F,9E,CD,F9,6C6 





1218 DATA 9A, C9, 21, 98, 98, 22, 18, A3, DD, 21, LA, A3, CD, 7F,9E, 696 
1228 DATA CD, F9, 9A, C9, 21,98,86, 22, 4E, A3, DD, 21,58, A3, CD, 71B 
1238 DATA 7F,9E, CD, F9,9A,C9,21,98,88, 22,84, A3, DD, 21, 86, 734 
1248 DATA A3, CD, 7F,9E, CD, F9, 9A, C9, 3E, 91, 32,E1, A3, C9,D5, 949 
1258 DATA 86,05, 7A, BC, 28,94, 7B,BD,28,14,13,19,F5,D1,D5,507 
1269 DATA 96,83, 1B, 7A, BC, 29, 84, 7B, BD, 28,04, 19,F5,D1,C9,581 
1278 DATA D1,3E,91,32,E8, A3, C9, 2A, C9, A3, DD, 21,86, A2,D5,81F 
1288 DATA CD, 36,9E,D1, 3€, 99, 32, 2D, A4, AF, 32,FE,91,06,F5, 71E 
1298 DATA ED, 78,1F,38,FB,ED,53,DB, A3, 3A,D9, A3,FE, 81, CA, BEC 
1389 DATA 35,98,FE, 02, CA,9C, 98, 3E, 7F, 32,58, 8C, CD, 82,92, 77F 
1318 DATA 21,F3, 43, 11,F2,A3,91,3B,98, ED, B9, 34, ED, A3, B7, 7B7 
1329 DATA 11,83, A8,C4,8C,9F, AF, 32, ED, A3, SA, EE, A3,B7,11,827 
1338 DATA A9, A8,C4,8C,9F, AF,32,FE, A3, CD, 17,94, 18, 3B, 86, 772 
1344 DATA F5,ED, 78, 1F,39,FB, CD, DF,94,C3, 91,94, ED, 5B, DB, 95F 
1358 DATA 43,34, 48, A8, 87, C2, DE, BB, 34,46, A,B7,C2,DE, 8B, 81 
1369 DATA 3A,D8, A3,B7, C2,DE, 8B, 34, D2, A3, B7,C2, DE, 8B, C3,9E3 
1379 DATA 64,93, 34, DD, A3, 3D, CA, #C, 94, 32, DD, A3, C9, 34, Ed, 7EA 
1389 DATA A3,FE,01,28,C5,AF, 32,E1, A3,8A,D8,43,87,28, 0F, 787 
1398 DATA 21,FB, 25,ED,5B,CF, A3, 13, DD, 21,8E, A1, CD, 36,9E, 75C 
1498 DATA 21,A3,28, ED, 5B, DB, A3, DD,21,86, A2, CD, 36,9E, SE, 787 
1418 DATA A, 32, 7E,9C, 21,95,35,11,88,84,CD, 2C,9C,21,15,391 
1429 DATA A4,22, 1E,95, 46,41, 36, 09,23, 18, FB, DD, 21, 86, A2, 54A 
1438 DATA CD, 7F,9E, 3A, D4, A3,B7,C4, 79,98, 3A, DA, A3, 87, 28, 8B3 
1448 DATA 8D,21,99,08,22,CF, A3,DD, 21,E, A1, CD, 7F,9E, 3A, 593 
1458 DATA D2, 43,87, 28,97,DD, 24,CA,A,CD, 7F,9E,21,DF, 94,842 
1469 DATA 22,5A92,34,46, A9,87,28,87, DD, 2A, 47, AB, CD, 7F,G4E 
1478 DATA.SE, 3À, 48, A,87,28,97, DD, 2A, 41, A9, CD, 7F,9E, FD, 76D 
1489 DATA 21,3D, A9, SE, 8D, 32, E2, A3, 3A, 3C, AD, 3D, 32, 3C, AB, 5E1 
1409-DATA FE, 96, CA,B9,93,CD, 19,90, 3A, 19, A3, 87, DD, 21, 1A, 753 
1548 DATA A3,C4,7F,9E, 3A,4F, A3, 87, DD,21, 58, A3, C4, 7F,9E, 839 
1549 DATA 34,85, 43,87, DD, 21,86, A3,C4, ?F,9E,C3, 78, 8B, 3E, 828 
1526 DATA CO, 32, 28,93, CD,C9, 92, 3E, SE, 32, 28, 93, 21, 99, CO, 628 
1539 DATA 11,91,C,01,98,49,36,08,ED, 88,91, 80, 7F, ED, 49, 529 
1549 DATA CD,99,69,91,68C, 7F,ED, 49, 21,9D,C3, 22, DD, 8B, 34,617 
1558 DATA EC, A3,FE,8A,CC,FA,93,FE, DB, CC,E9, 93, 96, 86, C5,912 
1569 DATA 21,59,68,11,58,68,91,41,89, 1A,ED, B9, 12,C1, 19, 48F 


. {579 DATA EF,C3, 19,68, 11,06, C8, 21,94, A8, CD, 85, 9D, CD, F5, 873 
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1678 DATA CB,ED,58,D1, A9, 13, ED, 53, 
"1689 DATA 32, BD, A3, 28,85, 21, 
“1698 DATA Ca, 41, CD, 36,9F, C9, 1B,24, 


1589 DATA 9B, 3A,C4,A3,FE,7F,28,F6,21,98,08,11,01, CD, 01,683 
1599 DATA 69,49,36,90,ED, BB, 21,80, C2,22, 8,88, AF, 32, EB, 6CC 
1669 DATA A3,32,EC,A3,21,81,50, 22, 39,88, CD, 38, 9B, C3, 19, 62F 
1618 DATA A6,AF, 32, EC, A3,21,01,58,22, 39,88, 21, 8D, C2, 22, 609 
1624 DATA DS, 8B,C9,21,8D,C3, 22, 8,68, C9, 34,EL, A3, FE, 01, 898 
1639 DATA C2,5F,92,03,04,92,3E,F7,32, 64,80,3E, FB, 32, CC, 826 
1649 DATA 6D,C9,ED,58,D1,A3,7A,87,28, A, SAE2, A3, BB, 28,817 
1658 DATA 84, 39,90, 38,30, 18, \, DB, A3 23,28,0D,99,94,C9,581 
1668 DATA 13,13,13,13,2A,DB,A3, DangA,EN, A3, FE, 81,644 
s D, A 













1789 DATA 94, 3A,E8, A3, FE, 91, C8, »ED,SB,Df, 
1718 DATA 43, 3A,BD, A3, EE, 91, 32, BD, A3, 26, 
1729-DATA #3,21,87,23,DD,21,CA,A1,CD,36, Œ, co, MF, #2, EB, 762 
1738 DATA 43,D5,CD,E8,9F, DE, 19, 1A,B7,28,1B,CD,E6,9F, 8D, 757 
1749 DATA 28,F6,7C,BA, 29,94, 7B, BD, 28,8D,CD,E8,9F, 7C, BA, 767 
1758 DATA 29,94, 7B, BD, 28, 82,D1,C9,D1,8E, 81,32, E8, A3, BE, 5F3 
1769 DATA 12,7A,BC,29,894,7B, BD, 28, 97,CD,EB,9F,9D, 25,F2,646 
1778 DATA C9,3E,91,32,E1, A3,C9,3A, 16, A4,B7,C8, ED, 5B, DD, 812 
1789 DATA 8B,96,12,C5,2A,DB, A3, CD, 1B,97,C1,3A,E1, A3,B7, 7C5 
1798 DATA CS, CD,E8,9F, 19,EE, ED,5B,D8, 8B,21,FB, 25, DD, 21,8F4 






1889 DATA BE, A1,ED,53,CF, A3, 22,CB, A3, CD, 39,9E, 21, 18,95, 763 
1819 DATA 22,5A,92,C9, 3A, DA, A3,B7,C8, 3A, 15, A4,FE, 81,28, 71D 
1829 DATA 21,FE, 92,28, 66,FE, 83,CA, D7,95,FE, 94, CA, 6A,96, 7B2 
1839 DATA FE,05,CA,EF,96,FE,96,CA,95,97,2A, 1E,95, 23, 22,6DE 
1849 DATA 1E,95,18,D8,ED,5B,CF, A3, 21, A9, 26,22,9F,92,AF, 74F 
1859 DATA 32,A5,92,21, 9,26, DD,21,8E, A1,13,13,D5,E5, 24,618 
1869 DATA DB,A3,13,13,13,13,CD,82,97,E1,D1,3A,E1, A3,B7, 7D7 
1879 DATA C4, 3A,ES, A3,B7, C8, 3A, BD, A3, EE, 91, 32, BD, A3, 28,837 
1889 DATA 9B,ED,53,CF, A3,22,CB, A3, CD, 36,9E,C9,21,99,27,6FF 
1899 DATA 18,F9,ED,5B,CF,A3,21,FB,25,22,9F,92,3E, 13, 32,6D9 
1999 DATA A5,92,21,52,26,DD,21,8E, A1, 1B, 1B,D5,E5, 2A, DB, 672 
1918 DATA 43,23,23,23,CD,D8,97,E1,D1,3A,E1, A3,B7, C9, 34, 869 
1929 DATA Ef,A3,B7,C89,3A,BD, A3,EE, 91, 32, BD, A3, 28, 9B, ED, 835 
1938 DATA 53,CF,A3,22,CB, A3, CD, 36,9F,C9,21,FB,25, 18, F9, 898 
1949 DATA ED,5B,CF, A3, 05, 24, D3, A3, 22,D7, A3,2A,CB, A3,CD, 939 
1958 DATA BB,9F,EB, 2A,DB, A3, CD, 1B,97,S3A,E1, A3,B7, 29, 32,833 
1969 DATA CD,E8,9F,CD, 1B,97,3A,E1{, A3,B7, 28,26, CD, E8,9F, 8E2 
1978 DATA CD,1B,97,3A,EL, A3,B7,28,1A,CD,E8,9F,CD, 1B,97,881 
1988 DATA 3A,E1,A3,B7,29,0E,CD,E8,9F,CD, 18,97, 3A,E1,A3,834 
1999 DATA B7,29,92,18,92,D1,C9,D1,CD,E8,9F,CD,E8,9F,CD, 8D3 
2809 DATA EB,9F,CD,E8,9F,D5, 2A, DB, A3, 13, 13,13, 13, 13,13, 6CA 
2819 DATA CD,82,97,D1,3A,E1,A3,B7,C8,D5,1B, 1B,2A, DB, A3, 89F 
2929 DATA 23,23,23,CD,D6,97,D1,3A,E1,A3,B7,C9,ED,53,CF, 8BA 
2838 DATA A3,2A,CB, A3, DD, 21,9E, A1, CD, 36,9E,C9, ED, 5B, CF, 869 
2949 DATA A3,D5,ED,5B, D3, A3, 21, 8B, 29, CD, BB,9F, 22,D7, A3, 8CE 
2858 DATA ED, 5B,DB, A3, 2A, C9, A3,CD,BB,9F,D1,CD, 1B,97, 34, 99D 
2969 DATA E1,A3,B7,C8,CD,DA,9F,CD, 18,97, 3A,E1, A3,B7,C8,9F5 
2879 DATA CD,DA,9F,CD, 1B,97,3A,E1,A3,B7,C8,CD, DA, 9F, CD, A9D 
2989 DATA 1B,97,3A,E1,A3,B7,C8,CD, DA,9F, CD, 1B,97,3A,E1, 8C7 
2899 DATA A3,B7,C9,D5, 24, DB, A3, 13,13, 13,13,13,13,CD, 82,658 
2199 DATA 97,D1,3A,E1,A3,B7,C9,D5, 1B, 1B, 2A,DB, A3, 23, 23, 796 
2118 DATA 23,CD,D8,97,D1,3A,E1,A3,B7,C4,ED,53,CF, A3, 24,941 
2128 DATA CB, A3,DD,21,8E, A1, CD,36,9E,C9,3E, C9, 32, EB, 96, 83F 
2139 DATA CD, 64,96, 3E, CD, 32,EB, 96, 3A,E1, A3,B7,C9,C3, 45, BC8 
2149 DATA 95,C9,3E,C9, 32,EB, 96, CD, 64,96, SE, CD, 32, EB, 96, 843 
2158 DATA 3A,E1,A3,B7,C8,C3,8E,95,C9, AF,32,E8, A3, D5, SE, 92B 
2168 DATA 95, 7A,BC, 29,94, 7B, BD, 28, 3E, 13,90, 29,F4,D1,D5,5D7 
2178 DATA SE, 94, 1B, 7A,BC, 20,84, 7B, BD, 28, 2D,8D,29,F4,D1,596 
2189 DATA D5,8E, 85,34, D6, A3, BA, 28, 86, 34, D7, A3, BB, 28,21,635 
2199 DATA 1B,9D,28,F8,D1,D5,9E, 95, 3A, D8, A3, BA, 29, 96, 3A,5C8 
2289 DATA D7,A3,BB,28, 8D, 13, 8D, 29, F8,D1,C9,D1,3E, 91, 32,676 
2218 DATA E1,A3,C9,D1,CD, 79,98,C9,D1,3E,91,32,E1, A3,C9,954 
2229 DATA D1,3E,891,932,E0, A3, C9, AF, 32,E9, A3,E5, 2A, D3, A3, 877 
2239 DATA 22,06, A3, E1,9E, 12,D5, 7C, BA, 28,84, 7D,BB, 28, DB, 785 
2248 DATA 3A,D6,A3, BA, 29,96, 3A, D5, A3, BB, 28, D6, CD, E8,9F, 852 
2258 DATA 8D,29,E6, D; SE, 12,E5, 2A,f B Fa SF, EB, 885 


"DATA 22,05, 13, EL, £E, 12,D5, 7C, BA, 28,84, 7D, BB, 28, 81, 6AB 
2309 DATA 3A,D6, A3, BA, 28,87, 3A,D5, A3, BB, CA, 7B,97,CD,E8, 892 
2319 DATA 9F,9D,29,E5,D1,8E, 12,E5, 2A,D5,A3,EB, CD, EB, 9F, 868 
2329 DATA EB,22,D5,A3,E1,EB, CD, E8,9F,EB, 7C, BA, 28, 95, 7D, 968 
2338 DATA BB, CA, 75,97, 34, D6, A3, BA, 28,87, 3A,D5, A3, BB, CA, 85C 
2349 DATA 7C,97,8D,29,D5,C9, ED, 5B, D3, A3, {B, 1B, ED, 53,D3, 7E5 
2358 DATA A3,CD,E8,9F, 1A,B7,C2,E2,98,CD,EB,9F, 1A,B7,C2,9EB 
2368 DATA E2,98,ED,5B,D3, A3, 21,8B, 29, CD, BB,9F, 2B, 7E,B7,894 
2378 DATA F5,C4,34,9A,F1,C2,23,92,ED,5B,D3, A3, DD, 21, 28, 8D3 





2398 DATA 21,28, A2, CD, 7F,9E,21,99,98,22,D3, A3, ÀF, 32, D9,648 
2498 DATA A3,32,DF, A3, 21,8B, 29,22, 60,98, 22,D2,98,8E,91,61E 
2419 DATA 32,DE, A3,C9,ED, 5B,D3, A3, 13, 13,ED,53, D3, A3, 13, 829 
2429 DATA 13,13, 1A,B7,C2,59,99,CD,EB,9F, 1A,B7,C2,58, 99, 772 
2438 DATA ED, 5B,D3, 3,21, 8B, 29, CD, BB,9F, 23,23, 23, 7E,B7, 758 
2449 DATA F5,C4,79,98,F1,C2, 23,92, ED,5B, D3, A3, 21,8B, 29, 8C5 
2459 DATA DD, 21,28, A2, CD, 36,9E, ED, 5B, DB, A3,C3, 23,92, AF, 856 
2469 DATA 32,DE, A3, 34, DF,A3,FE,91,28,38,21,CF, A3, 22,D3, 756 
2478 DATA 9A,2A,D3, A3,ED, 5B,CF, A3, 7A,B7,91,8E,A1,C4,C1, B5A 
2489 DATA 99, 3A,DE, A3, FE, 91,28, 49, 21,D1,A3,22, D3, JA, 2A, 789 
2498 DATA D3, A3, ED, 5B,D1, A3, 7A,B7,91,CA, A1,C4,C1, 99, 3A, 927 
2599 DATA DE, A3,FE, 91, 28,24, 21,8B, 29, ED, 5B, D3, A3, CD, BB, 7E7 
2518 DATA 9F,7E,B7,C4, 79,98, 3A, DE, A3,FE, 91,28, 9E,ED,5B,7E1 
2529 DATA D3,A3, 2A,6D,98, DD, 21,28, A2,CD, 36,9E, ED, 5B, DB, 831 
2539 DATA A3,C3,23,92,AF, 32,DE, A3, 3A, DF, A3,FE, 81, 28, 38, 798 
2549 DATA 21,CF,A3,22,89,9A, 2A,D3, A3, ED, 5B, CF, A3, 7A,B7, 863 
2558 DATA 81,0E,A1,C4,9A,9A, SA, DE, A3,FE, 91,28, 43,21, D1,62F 
2564 DATA A3,22,89,9A, 2A,D3, A3, ED, 5B,D1, A3, 7A,B7,91,CA, 849 
2578 DATA A1,C4, GA, 9A, 3A, DE, A3,FE,91,28,27,21,6B, 29, ED, 6D4 
2589 DATA 5B,D3, A3,CD,BB,9F, 23,23, 23, 7E,B7,C4, 34, 9A, SA, 762 
2598 DATA DE, A3,FE, 91,28, 9E, ED, 5B,D3, A3,DD,21, 28, A2, 2A, 766 
2688 DATA D2,98,CD,36,9E, ED, 5B, DB, A3, C3, 23,92, 23, C5, D5, 996 
2618 DATA 13,13,13,13,13,8E, 12, 7A, BC, 29,95, 7B, BD, CA, A1, 47D 
2629 DATA 9A,CD,E8,9F,8D,28,F1,D1,D5,13,13,13,0E, 12, 7A,685 
2639 DATA BC, 28,95, 7B,BD, CA, A1,9A,CD,E8,9F,2D,29,F1,D1,861 
2649 DATA 2B,D5,13,13,13,8E, 12, 74, BC,29,95,7B,BD,CA,A1,557 
2658 DATA SA, CD,E8,9F,9D,28,F1,D1,C1,C9,23,23,C5,D5, 8E, 855 
2669 DATA 11,7A,BC, 29,84, 7B, BD, 28, 3F,CD,E8,9F,9D, 29,F2,67D 
2678 DATA 23,D1,D5,9E, 11, 7A,BC, 28,04, 7B, BD, 28, 2C, CD, E8, 683 
2689 DATA 9F,8D,29,F2,D1,C1,C9,DD, 21,28, A2, CD, 7F,9E, 21, 7EC 
2699 DATA 89,99, 22,D3, A3, AF, 32,D9, A3, 32,DF, A3, 21, 8B, 29,67E 
2789 DATA 22,D2,98,22,6D,98,3E, 91, 32, DE, A3,C9,D1,C1,C5, 7C5 
2718 DATA DD,Et,FD,7E,98,6F, FD, 7E,91,67,FD,23,FD, 23, ED, 8B8 
2728 DATA 5B,D3,A3, 13, 13, FD, 73,99, FD, 72,01, FD, 23,FD, 23,717 
2738 DATA FD, 71,89,FD, 70,81,FD,23,FD,23,CD,36,9E, 21,89, 6DE 
2749 DATA 89,22,CD,A3,21,F7, 29,22, D2,98, 2A, D3, A3, 23, 22,644 
275$ DATA D3, A3,8E, 81, 32,DE, A3, 32,DF, A3,C9,D1,C1,C5, DD, 919 
2768 DATA E1,FD,7E,09,6F,FD, 7E,41,67,FD, 23,FD, 23, ED, 5B, 836 
2778 DATA D3, 43, 1B, 1B,FD, 73,98, FD, 72,81,FD,23,FD, 23, FD, 7C9 
2788 DATA 71,69,FD, 79,91,FD, 23,FD, 23,CD, 36,9E, 21,99, 99,5E1 
2798 DATA 22,CD,A3,21,F7,29, 22,60, 98, 2A, D3, A3, 2B, 22, D3,6BA 
2899 DATA A3,3E,91,32,DE, A3, 32, DF, A3,21, 2C, A2, 16,8C,#1,55B 
2819 DATA 84,89, AF,77,99,15,28,FB,C9, 3A, 39, AB,C6, 85, 32,53C 
2828 DATA 39,A9,FE, OA, 28,92, 18, 2D, AF, 32, 39, A9, SA, 38, AB, 51C 
2838 DATA 3C, 32,38, A9, FE, 9A, 28,02,18, 1C,AF, 32,38, A9, 3A, 49F 
2849 DATA 37,A8,3C,32,37,A9,FE, 9A, 28,02, 18, 9B, AF, 32,37, 489 
2859 DATA A9, 3,36, A9, 3C, 32, 36, A8, CD, 18,9D,C9, 21,88, AG,5FE 
2869 DATA 11,36, 9,96, 06, 14, 13, 4E, 23,B9, 28,94, 38, 96, 38, 2E4 
2878 DATA 83,95,28,F2,C9,2A, 36, A8, 22, 98, A6, 24,38, A9, 22, CF 
2688 DATA 92, A6, 2A, 34, A9,22, 84, A6,C9,2A,C9, A3, 7C,FE, 27,678 
2898 DATA 29,47,ED,53, DB, A3, 1B, 1B,D5,CD,EB,9F, 1A,B7,D1,826 
2988 DATA 29,2C,21,8B, 29,CD, BB,9F, 7E,B7, 28, 22,ED,53,D3, 6D2 
2918 DATA 43,21,8B,29, DD, 21,28, A2, CD, 39,9E, 3E, #1, 32, D9, 62E 
2929 DATA A3,AF,32,58,8C, 32,68, 8C, 32, CC, 8D, SE, 92, 32, DD, 668 
2938 DATA A3, ED, 5B, DB, A3, 8E, 91, 32,EE, A3,C3, 96,92, ED, 53, 896 
294$ DATA DB,A3,13,13,D5,13, 13,13, CD,E8,9F, 1A,B7,D1,28,6C8 
2958 DATA E2,D5,21,8B, 29, 13, 13,13,CD,BB,9F,D1,7E,B7, 29,712 
2969 DATA D3,ED,53,D3, 3,21, 8B, 29, DD, 21, 28, A2, CD, 39,9E, 7CA 


2389 DATA A2,21,8B,29,CD,36,9E,ED, 5B,DB, A3,C3,23,92,DD,833 : 2978 DATA SE, 92, 32, D9, A3, ED, 5B, DB, A3, AF, 32,58, 8C, 3E, 81,6B8 
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2988 DATA 32,EE, A3,C3, 96,92, 81,0, F4,21,BF, A3, ED, 49,96, GES 
2998 DATA F6, ED, 78,E6,38,4F,F6,C8,ED, 79,ED, 49,81, 92, F7,99C 
3989 DATA ED, 49,/E,49,86,F6, ED, 49, 86,F4, ED, 78, 77, 23,9C, 6BB 
3819 DATA 3E, 4A,B9,29,F8, 91,82,F7,ED, 49,91,88,F6, ED, 49, 72E 
3928 DATA C9,D9,C5,D5,E5, 11, 89,C9,21,99,F6,9E, 97, 79,96, 71D 
3838 DATA F4, ED, 79,96,F6,ED,51,ED,69, AF,96,F4,ED, 79, 86, 8FF 
3949 DATA F6,ED,59,ED,69,8D,28,E7,3E,97,96,F4,ED, 79,96, 751 
3858 DATA F6, ED,51,ED, 69, 3E,3F,96,F4, ED, 79,86,F6, ED, 59, BA9 
3969 DATA ED,69,3E,99,96,F4, ED, 79, 96,F6,ED,51,ED,69, 16, 7A3 
3978 DATA F4,D9,96,98,C5,CB,96,3E, 9F, 38,81, AF,D9, 42, ED, GAE 
3989 DATA 79,44,ED,59,ED,69,D9,96,98, 19,FE,C1,19,E7,1B, 721 
3898 DATA 23, 74,B3,28,DF,D9,E1,D1,C1,D9,C9,EB,C9,21,8C,91E 
3199 DATA C1,11,BB,33,DD,21,38,A4,91,9F,9C, ED, 43, 3B,9E, 6DF 
3119 DATA CD,3E,9E, 21,55, 1B,86,F5,ED, 78,1F,38,FB,5E, 23,665 
3128 DATA 56,1C,28,14,23,E5,21,CB,FF,19,EB,21,BB, 33,DD,691 
3139 DATA 21,38, A4, CD,36,9E,E1, 18,DF, 81, BB,9F, ED, 43, 3B, 73C 
3149 DATA 9E,21,DC,95,86,F5, ED, 78, 1F,39,FB,2B, 7C,B5,28,6C6 
3158 DATA F4, DD, 21,38, A4, C3, 7F,9E,21, 26, A9, 11,12,C9,CD, 745 
3169 DATA 85,9), 13,13,21,99, A6,C3,59,9D, 21,38, A8, 11,48,581 
3178 DATA C9,CD,85,9D, 21,36, A8,11,4C,C8,C3,59,9D,21,21,6B5 
3189 DATA A,11,79,C9,CD,85, 9D, 34, 3C, AB, 11, 7A, CA, C6, 39, 738 
3198 DATA 6F,26,99, 29,29, 29,29,91,D8, 1B,99,D5,81,FF, 86, 49B 
3289 DATA ED, A8, 1D,3E,98,82,57,19,F7,D1, 1C,96, 98, ED, AG, 658 
3219 DATA 1B,3E,98,82,57,18,F7,09,96,86,C5,E5, 7E,C6, 39, 63D 
3228 DATA 6F,26,89,29, 29,29, 29,91, DD, 1B,99,91,FF,98,D5, 48B 
3238 DATA ED, AS, 1D,3E,98,62,57,18,F7,D1, 1C, 96,88, D5, ED, 68D 
3249 DATA AS, 1B,3E,98,82,57,19,F7,D1,13,E1,23,C1, 19,CE,668 
3258 DATA C9,7E,B7,C8,E5,CD,98,9D,E1,23,18,F5,FE,61,38,94D 
3269 DATA 94,C6,B9,18,3B,FE, 41,38, 94,C6, BF, 18,33,FE,3F,65E 
3278 DATA 29,04,3E, 38, 18,2B,FE,38,38,64,C6,99, 18, 23,FE, 44F 
3288 DATA 21,29,04,3E, 37,18, 1B,FE, 3A, 29, 94,3E, 36, 18, 13, 2EB 
3298 DATA FE, 2, 29,64,3E,34,18,9B,FE, 29,28,95,21,CE, A, 4B5 
3399 DATA 18,9D,3E,35,6F,26, 99,29, 29,29, 29,91, D8, 1B, 09, 2C6 
3318 DATA D5,91,FF,98,ED, AG, 1D,3E,98,82,57,19,F7,D1,1C,69A 
3329 DATA D5,96,88,ED, AG, 1B,3E,98, 82,57, 19,F7,D1,13,C9,65E 
3339 DATA 21,49, A9,F3,96,BC, 7E,FE,FF,28,8B,23,4E, ED, 79, 744 
3349 DATA @4,ED, 49,85,23,18,F8,21,1F,4F, 22,5F, AB, 3E, 01, 459 
3358 DATA 32,65, A8, 32, BA, A3, 21, BD, A8, AF, 96, 7F,4E, ED, 79, 72C 
3368 DATA ED, 49,23,3C,FE,11,29,F5,3E,8C, ED, 79,C9, CD, 7F, FE 
3378 DATA 9E,E5, CD, BB, 9F,D1,EB, 7E, 3C, 32,5D,9E, 23, 46, EB, 8A1 
3389 DATA 13,DD, 75,88, DD, 74,81, DD, 77,82, DD, 78,93, DD, 23, 65D 
3398 DATA DD, 23, DD, 23, DD, 23,8E,98,E5, 7E, DD, 77,88, 1A,B7,696 
3489 DATA 28,91,77,23,13,DD, 23, 8D,28,F4,E1,3E, 98,84,67,585 
3419 DATA 78,36,94,91,48,C8,99,47,18,DE,C9,ES,D5, DD, ES, 738 
3420 DATA DD,5E, 49, DD, 56,41, DD, 4E, 82, DD, 46,93, E1,E5, 23, 6AB 
3439 DATA 23,23,23,C5,06, 98, D5, ED, B9,D1,3E, 88, 82, 57, 39, 5C6 
3449 DATA 98,3E,48,83,5F,7A,CE,C9,57,C1,19,E8,DD,E1,D1, 88F 
3458 DATA Ei,C9,21,99,C1,86,9E,C5, 11,91, 98, 78,FE, 9B, 38,538 
3468 DATA 93,11,88,05,ED,53,E6,9E, 11,3E, 90,E5, 19, 22, 43, 48F 
3478 DATA 9F,23,22,5B,9F,E1,22,DE,9E,E5,#6,29,C5,86,F5, 728 
3489 DATA 21,98,99,ED, 78,1F,39,FB, 11,98, 08, 1B, 7A,B3, 29, 449 
3498 DATA FB, 96,92, C5, 96,98,C5,91,3E,90,54,5D, 23,23, 7B, 44C 
3598 DATA ED, B9,6F,3E,98,82,67,C1,19,ED,CB, FC, CB,F4,3E, 8BD 
3518 DATA 49,85,6F,C1, 18, DF, 3A,65, A8, 3D, 32,65, A, 20, 26, 5DD 
3528 DATA 3E, 02, 32,65, A9, DD, 7E, 99, DD, 23, FE, 98, 28,95,21,51E 
3538 DATA CE, A9, 18, 19,E6,97,6F, 26,98, 29, 29,29, 29, 29,29, ASE 
3549 DATA ED, 58,61, A6, 19,22, 63, A9, 2A,63, A9, 11, 69,95, 91, 4C6 
3558 DATA FF, 19, ED, A8, 1D,8E, 88, 82,57,39,87,C6,C9,57,3E,62A 
3568 DATA 48,83,5F,19,EE, 11, 89,99, 96, 19, 7A, ED, AG,57, 1D, 4C2 
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3578 DATA 3E, 98,82,57,38,97,C6,C8,57,3E, 49,83,5F, 19, EC, 58F 
3588 DATA 22,63,A8,C1,95,C2, DA,9E, E1, 11,88, 99, 19,11,66,627 
3598 DATA AS,CD,8C,9F,C1,95,C2,87,9E,C9,E5,EB,C5, F5, 7E, A46 
3699 DATA FE, SE, 28,22,23,4E,23,96,F4,ED, 79,96,F6, ED, 78, 6AB 
3619 DATA F6, C9, ED, 79,E6, 8F, ED, 79,96, F4, ED, 49,86, F6, 4F,922 
3629 DATA CB,FF,ED, 79,ED, 49, 18,D9,F1,C1,E1,C9, 23, D5, CD, A7B 
3639 DATA DA,9F,7E,D6, 98, 38, 99, EB, 11, 49,89, ED, 52,EB, 18,694 
3649 DATA F3,C6,89,47,CD,E8,9F,19,FB,62,6B,D1,C9,3E, 98, 815 
3654 DATA 82,57,D9,3E, 48, 83,5F,7A,CE,C8,57,C9, 7A, D6, 98, 789 
3669 DATA 57,E6,38,FE,38,C9, 7A,C6, 49,57, 7B,D6, 49,5F, DB, 892 
3678 DATA 7A,15,E6,97,C8, 7A,C6,98,57,C9,47,41,4D, 45,29, 5DE 
3689 DATA 4F,56,45,52,29,21,21,99,59,41,55,53,45,2ÿ,21, 35D 
3699 DATA 99,29,29,29,28,28,28,28,98,56, 49, 45,53, 99, 48, 25F 
3709 DATA 49,47,48,53,43,4F,52,45,99,53,43,4F,52, 45,90, 309 
3718 DATA 99,09,09,06,99,00,93,63,2A,00,00,00, 89,95, 2A, 14F 
3729 DATA 09,69,06,08,91,29, 92, 2A,06,29,97,22,0C,39,9D,E5 
3738 DATA 99,FF,91,28,92,2F,96, 19,07, 28,08,09,09, 90,89, 19F 
3749 DATA 08,80,09,09,18,01,00,02,99,03,08,04,09,95,90,27 
3759 DATA 96,8E,98, 19,99, 90, 9A,69,0B,68,0C, 99, 8D, 99,87, DC 
3769 DATA 36,8E,09,92,01,96, 02, 09,03,09,04,00,05,09,06,61 
3778 DATA 99,98, 19,09, 1E, SA, LE, 9B,99,9C, 99, 2D, 98,87, 3E,E2 
3789 DATA 0E,69,02,01,91,02,09,93,09,04,06,05, 00,06, 09,26 
3798 DATA 98, 19,99, 1E,9A, 68, 9B, 99, 0C, 89, 0D, 09,87, SE, $E, D2 
3889 DATA 54,57,4E,52,5D, 4B, 43, 4A, 4C,5B,5C,58,56, 4D, 44, 4C2 
3819 DATA 42,54,06,09,00, 00,60, 08,06,00,09,09, 09,90, 86,96 
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98 DATA 91,97,93,93,03, 93,83, 93,83, 83,83, 63, 83, 83,83, 2F 

189 DATA 93,06,91,96, 98,98, 06,06, 86, 08, 96,08, 88, 08, 58, 6A 
118 DATA 96,86, 891, 81,96, 96, 98, 96, 98, 98, 98, 98, 98,98, 96, 6A 
129 DATA 98,98,98,91,81,86,94,93,02,06,84,93, 93,92, 88, 47 
138 DATA 54,83, 82, 86, 91,91, 96, 96,98, 68, 98,98, 98,98,98,5B 
148 DATA 98,06,98, 98,98, 81,91, 06, 98, 86,98, 94, 93,93, 83,57 
158 DATA 83,92, 86, 86, 96, 86, 01, 01,98, 08, 98,98, 98,68,96,5F 
169 DATA 98,96,96, 88, 98,08, 96,91,91,88,96,98, 54,93,93,5C 
178 DATA 93,83,93, 83, 82, 96, 96, 96, 91, 61,98, 88, 98,98, 98,58 
189 DATA 98,98,98,66, 88,96, 98,96, 88,81,91,98, 88,84,93,61 
199 DATA 93,93, 83, 83, 83, 83, 93, 92,98, 08, 91,91, 96,98, 98, 41 
288 DATA 96,08, 98,98, 96,08, 98, 98,98, 88,88, 01,81,98, 84,66 
219 DATA 83,83, 83, 83, 83, 83, 83, 03, 03,03, 82,08,01,91,98, 32 
226 DATA 96,66, 88, 58, 58,56, 88, 88,98, 58, 86,98, 98,91, 94,6D 
238 DATA 93,83,83, 83,93, 83, 83, 03, 83, 93, 93,93, 93,03,82,2C 
246 DATA 92,87,83,83,83,03,03,03, 53,03, 03,83, 93,03, 83,39 
258 DATA 93, 86,81, 96, 86, 86, 88, 98, 98, 98, 96, 98, 98, 08,98, 6A 
268 DATA 98,08,81,91, 96,06, 94,03, 82,08, 84,63, 82, 08, 88, 4C 
278 DATA 96,88, 96, 81, 91, 86, 98, 96,08, 08, 88, 08, 98, 98,08, G6A 
288 DATA 93,93,98,64,91,81,06, 04,93, 52,86, 84, 52,08, 98,43 
298 DATA 96,86, 98, 86, 96, 81,91, 98, 98, 98, 98, 98, 98, 08,88,6A 
388 DATA 93,03,93,93,98,84,91,01,98,98,98,84, 92,98, 88, 48 
319 DATA 66,88, 96, 86, 86, 86, 98, 01,01,08, 98,98, 98,98,D6,6A 
328 DATA 93,83,83,83,83,03,98,04,81,01,88,94, 82,98, 88,3E 
338 DATA 96,86, 96, 86, 96, 86, 08, 06, 98, 91,91,98, 98,98, 96,6A 
348 DATA 93,93,93,83,83, 83,93, 83,68, 84,91, 01, 98,98, 88, 3E 
358 DATA 96,86, 96, 86, 96, 86, 98, 06, 08, 98,98,81,91,58,98,6A 
368 DATA 94,93,93,83,83,03,03, 03,03, 92,88, 94,81,01,88,34 
378 DATA 96,86, 86, 86, 86, 86, 98, 98, 06, 08, 98, 88, 98,91, 94,6) 
388 DATA 93,83,93,83,93,83,83, 93,93, 83, 83,03, 83,93, 82,20 
398 DATA 83,87,83, 93,83, 83, 03, 93, 93,03, 03,93, 83,03,93,31 
498 DATA 93, 06,81, 96, 88, 58,98, 06, 86, 88, 98,98, 88, 98, 58, GA 
418 DATA 86,88,81,81, 98,84, 93, 03,93, 03, 92,88, 64,03,93,3E 
428 DATA 92,68,98, 01,91, 96,88, 96,98, 96, 88, 96, 88,08, 88,64 
438 DATA 98,88, 88, 88, 81,91,08, 08, 04,03, 92,88, 84,83,03, 4D 
448 DATA 93,93,93,82,98,81,91,96, 86,96, 88, 08,68, 08,98,55 
459 DATA 886,88, 96, 88, 86, 86, 01, 91,98, 08, 98, 58, 98,56, 98,68 
468 DATA 89,66,98, 98, 88,98,98,01,91,98, 84,03, 93,03, 82,47 
478 DATA 86,84, 83, 83, 83,92, 98, 98,91, 01,98, 68,98,98, 08,51 
489 DATA 96,08, 08,886, 88,08, 88,98, 88,51,87,03,93,83,83,5C 
498 DATA 83,83, 82, 86, 96,84, 03, 93, 92,08,61,91,98, 98,98, 46 
589 DATA 96,98, 98,68, 88,96, 98, 58, 98,98,88,81,91,08,84,66 
519 DATA 83,83, 83, 82, 86,84, 03, 92, 98,64, 93,83, 92,01,98,39 
528 DATA 98,98, 98,98, 88,96, 98, 08, 86, 88,88, 88, 86,01, 94,6D 
538 DATA 83,83, 93,83, 83, 83, 83, 93, 93,93, 83, 93, 83,93, #2, 2C 
548 DATA 94,07,93,93,03,83,93, 03,93, 83,83, 83, 93,03, 83, 32 
558 DATA 53,86, 81,86, 86, 86, 98, 06, 98, 08, 98, 98, 98,98, 58, 6A 
568 DATA 98,08,91,81,98,84,92,98, 96, 84,82, 88, 98,98, 88,56 
578 DATA 86,886, 98, 81, 91,98, 98, 96, 8,98, 86,08, 64,92, 68,69 
588 DATA 88,64,92,88,81,91,98,86, 94, 83,83, 02, 88,98, 88, 4C 
598 DATA 86,86, 86, 86, 86, 81,91, 08, 98, 88, 98, 08,08, 08,08, 6A 
688 DATA 94,93,93,92,88,88,91,01,98, 04,93, 03, 83,03, 02,38 
618 DATA 86,86, 86, 86, 96, 96, 98,61, 91,08, 98,98,96,98,98,6A 
628 DATA 98,96,98,88,94,93,93,03,81,87,83, 82, 88,84, 93, 49 
638 DATA 82,86, 88, 96, 88, 96, 08, 98, 98, 01,91, 98, 98,98,98,64 
649 DATA 98,96, 96,68,98,98,98, 96,98, 89,81,91,88,98, 88,62 
658 DATA 86,86, 86, 86, 88, 86, 98, 08, 99,88,89,91,91,98,98,52 
668 DATA 94,93,93,93,93,93,03, 03,83, 03,83,83,81,01,98,2F 
678 DATA 98,88, 86, 86, 96, 96, 98, 98, 98, 98, 98, 88, 98,51,04,6D 
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688 DATA 93,93,93,03,03, 53,93, 83, 53,03, 83,83, 83,03, 82,20 
698 DATA 91,97,83,83, 83, 83,03, 83, 93,03, 83,03, 93,93, 03, 2F 
798 DATA 93,96,01,98, 88,98, 96,98, 86, 08, 86, 8, 86,08, 88,64 
718 DATA 86,98,81,87, 93, 83, 83, 93, 92,086, 94, 83, 93,03,93,3E 
728 DATA 93,93,83,01,81, 88,98, 88,96, 98,96, 88, 96,08, 88,5B 
738 DATA 98,98,86, 88, 81,07, 93, 93,83, 83, 83, 93, 93,93, 98,48 
749 DATA 94,93,83,93,63,81,01, 68, 86,98, 96, 98, 96,98, 88,52 
758 DATA 96,886,98, 86, 98, 98, 91, 87,03, 93,93, 83, 92,08, 94,52 
769 DATA 93,93,83,93,93,83,93,81,91, 98, 96,88, 96,88, 88,47 
779 DATA 86,86, 98, 86, 88, 96, 98, 8, 81,07,93,03,03,03,93,57 
789 DATA 93,93,93,08,64,03,83,63,83,01,91, 98, 86,08, 58,43 
798 DATA 56,96, 96, 86, 88, 06, 96, 08, 08, 88,91, 97,93,93,93,61 
899 DATA 93,92,98,54,93,83,93,03,93,03,83,01,91,98, 88, 38 
819 DATA 66,96, 86, 96, 88, 08, 98, 08, 08,08, 98, 88, 91,91,98,G6A 
828 DATA 98,98,98,96, 06,86, 98, 86,86, 08, 88, 98, 58,01, 54,6D 
838 DATA 83,83, 83, 83,83, 03,03, 03, 03,93, 93, 83,93,03,02,2C 
849 DATA 91,97,93,93,43,83,93,03,93,03,83, 03,93, 03,93, 2F 
858 DATA 53,96, 81, 86, 86, 88, 98, 98, 08, 98, 98, 98, 98,98, 98, 6A 
869 DATA 98,98,91,91,98,94,93,93,93, 92,58, 86, 54,03, 83, 43 
878 DATA 53,92, 88, 81,81, 98, 84, 06, 08,08, 98, 68, 98,58, 08,58 
688 DATA 98,98,92,98,91,91,98,84,93,03,83,02,88,08, 84,47 
898 DATA 93,93,83, 82,86, 81,91, 98, 94,986, 08, 98, 98,98,08,51 
984 DATA 98,98, 88,88, 92, 88,91, 61,98, 96,08, 98,88, 08, 98,64 
919 DATA 66, 86,86, 86, 86, 88, 98, 91,91,98, 88, 58,98,98,D8,6A 
928 DATA 98, 98,98, 98,96, 98, 98, 06,91,91,88, 04,88, 98, 88,66 
938 DATA 88, 96,98, 88, 96, 98, 86, 92,98,91,91,98,94,93,93,56 
949 DATA 93,92,88,08,84,83,93,63,92,08, 51, 81,88, 54, 88, 42 
959 DATA 96, 86,96, 88, 86, 98, 96, 98, 98,92, 98,91,81,98,#4,68 
969 DATA 93,93,93,02,88,68,84,93,93,93,92,88,81,01,88,3C 
978 DATA 66, 86,96, 86, 96, 88, 96, 08, 98, 98, #8, 8, 98,91, 84,6D 
988 DATA 93,83,03,93,83,83,93, 63,93, 83,83, 83,83, 93,82, 2C 
998 DATA 81,987,83, 83,83, 83, 93,03, 93,03, 83, 83,93, 03, 83, 2F 
1988 DATA 93,06,01,98, 08,08, 88,86, 98,98, 88,08, 68,98, 08,6A 
1818 DATA 96,98,01, 97,02, 98, 96,08, 96, 98, 96,98, 98,98, 88, 6A 
1929 DATA 96,08,94,91,81, 98,88, 06,58, 08, 98,08, 88, 98, 88, 66 
1838 DATA 98,98, 98, 98, 91,97, 93,93, 92, 08,86, 56, 88, 86, 58,68 
1849 DATA 96,08,94,93,03,01, 81,96, 08, 98, 96,08, 08,98, 88, 5C 
1858 DATA 96, 96,98, 98,68, 08,91,87,93,03,93,93, 92,88, 88,56 
1969 DATA 98,88,94,83,83, 03,03, 81, 81,08, 98, 98, 88,98, 06, 52 
1878 DATA 96, 96,96, 98,98, 98,68,08,91,97,83,83, 83,83, 82,56 
1989 DATA 96,88,88,88,84,93,93,03,93,01,91,98, 98, 98,58, 52 
1899 DATA V6, 98,88, 98,68, 88, 98,08, 98, 08, 91,87,83, 93, 82,60 
1188 DATA ÿ6,98,96,08, 96,98, 98,08, 64,93,93,01,87,93,82,57 
1118 DATA 96,88,98, 08,08, 58, 98,98, 98,08, 94,93,81,81,88,61 
1129 DATA 96,96,98, 96,98, 98, 08, 98, 58,98, 08,98, 98,91,84,6D 
1138 DATA 83,93,93, 93,93, #3, 03,03, 53, 03,93,93,83, 83, 82, 2C 
1149 DATA 91,97,83,93,03,03, 83,93, 83,03, 03,03, 93,03, 93, 2F 
1158 DATA 93,66, 91,98, 88, 58,96, 98,06, 98,98, 96, 56, 88, 86, 6A 
1169 DATA 96,98,91,91, 88, 98, 96, 88, 98,94, 53,93, 82,08,88,56 
1178 DATA 96, 86,98, 91,81,98,98, 08,94, 93,93,83,83, 83, 83,48 
1189 DATA 82,98,98,68,81,91,86, 94,83, 93, 03, 03,93, 93,93, 3D 
1198 DATA 93,93,93, 92,98, 91,81,98,94,93,93, 93, 83, 83, 83,33 
1288 DATA 83,83,93,03, 92,98, 81,01, 98, 96, 98,04, 93, 03,93, 3D 
1218 DATA 93, 83,93, 92,96, 98,98, 51,91, 96, 98,88, 56, 88, 84,51 
1228 DATA 83,93, 92,88, 88,98, 88, 08, 91,91, 98,08, 86, 98, 88, 5A 
1239 DATA 96,88, 68, 68, 88, 58,96, 08,98,81,81,98, 58,98, 98,6A 
1249 DATA 96,86,96, 86, 86,98, 86, 98,88, 98, 51,01, 98, 98,88, 6À 
1259 DATA 96, 88,08, 58,98, 88, 88,08, 96,96, 88,91, 81,88,98,6A 
1269 DATA 96,88, 98,86, 86, 96,98, 08, 58, 98, 98,98, 81, 91,88, 6A 





1279 DATA 96, 08,06, 98, 98, 98, 06,96, 98,08, 96,98, 96, 91,84, 6D 
1289 DATA 93,93,93,03, 83,03, 03,03, 03,03, 03,93, 63, 03,92, 2C 
1299 DATA 91,07,93,93,93,93, 03,03, 03,03,93,83,93,93,83,2F 
1389 DATA 93,66,91,08, 68,98, 98, 08,08, 08, 98,08,98,98,08,6GA 
1319 DATA 96,98,91,97,92,08,04,02,06,08,68,08,88,04,83,57 
1329 DATA 93,92,08,01,01,98, 08,96, 96,96, 98,08, 98,08, 98,5F 
1339 DATA 84,43,92,08,91,97,02,98,04,63,92,98, 88, 88,88, 4C 
1349 DATA 98,98, 04,92,08,01,01,98, 98,08, 98,98, 98,98, 98,68 
1359 DATA 88,08, 98,08,94,98,91,07,92,08,04,03,03,93,892, D 
1369 DATA 46,58,98,08,08,98,06,91,81,06, 08,08, 08,98,08, GA 
1379 DATA 88, 06,08,98,08,08,98,08,01,97,92, 08,94, 03, B3,5C 
1388 DATA 93,93,93,02, 08,08, 94,02,88, 91, 91,08, 96,98, D8, 4B 
1399 DATA 98,98, 08, 98,98, 98,98,08,08,08,01,97, 02,08, 84,66 
1499 DATA 93,93,93,03,83,03,92,08, 84,93, 83,02,07,02,08, 39 
1419 DATA 98,08, 98, 08,98, 98, 98,98, 08,98,84,93, 92,91, 98,62 
1429 DATA 96,68,96,98, 08,98, 08, 08,98,08,98,08,08,01,94,6D 
1439 DATA 93,93,83,03,03,03,93,03,03,03,03,03, 03,83, 92, 2C 
1449 DATA 91,67,03,03,03,03,03,03, 93,03, 03,93,03,93,03,2F 
1459 DATA 83,06, 91, 08,98, 08,08, 98,96,08,96,08, 86,98, 96,6A 
1469 DATA 98,08,91,01,98,84,93,03,92,98,84,93,93,92,08, 42 
1479 DATA 94,02,98,01,91,08, 98, 08,06, 68,08, 96, 86, 88, 98,68 
1489 DATA 98,08,08,68,01,91,98,94,93,03,03,93,93, 92,08, 47 
1498 DATA 94,03,03,02,08,91,91,08,06, 58,06, 96, 06,98, 88,56 
1589 DATA 98,98,08,08,08,98,01,91,98,94,03,93,92,98, 94,52 
1519 DATA 92,08,04,93,93,92,08,91,91,08,08,08, 96,98, 88,59 
1528 DATA 06,98,98,08,08,98,98,08,91,01,08,98,0à,02,08,68 
1539 DATA 94,02, 08,04,02,08,04,02,08,01,91,98, 86,08, 88, 4C 
1549 DATA 96,98,96,06,98,98,08,08,06,98,91,91,08,94,93,61 
1554 DATA 92,08,04,03,92,08,04,03,02,08,98,81,01,88, 88, 46 
1569 DATA 96,88, 086,08, 08,08, 08,98, 08,98,08,08,01,01,98,6A 
1578 DATA 986,08,98,08,08,96,98,08,98, 98,08, 98,86,81,84,6D 
1588 DATA 93,83,03,03,03,93,03,03, 93,03, 03,93, 03,03,92,2C 
1598 DATA 81,97,03,03,93,93,03,03,03,03,03,03, 03, 03,93, 2F 
1699 DATA 03,86,91,06,98,98,96, 08,08, 08,98, 08,08,98,08,GA 
1619 DATA 88,98,01,91,98,04,93,92,08,04,93,02,08,04, 88,48 
1629 DATA 98,64,98,01,91,98, 24,98, 98,08, 08,94, 96,08,94,5A 
1639 DATA 92,08,04,08,91,91,08,04,08,98,06,98,94,08,89B,58 
1649 DATA 94,92,98,04,08,91,91,98,94,03,02,98,98,94,98, 49 
1654 DATA 98,04,93,03,02,08,01,01,98,04,08,98, 98,88, 94, 4E 
1669 DATA 98,68,04,08,04,92,98,91,01,098,94,98,98,98,98,58 
1679 DATA 84,08,98,94,08,04,92,98,91,01,98,04, 98,98, 98,54 
1689 DATA 94,03,92,06, 04,08, 986,04,08,01,01,98,98,98,98,53 
1699 DATA 96, 98,08, 08,08, 08,08,98,98,D8,91,81, 98, BB, 94,66 
1789 DATA 93,03,03,63,03,03,03,93,02,08,88,01,01,98,98,3C 
1719 DATA 96, 08,08, 98, 08,08, 06,08, 98,96,08,08,81,91, 86,64 
1729 DATA 98,68, 08, 08, 98,98, 08, 08,08, 08,08,98,98,91,94,6D 
1738 DATA 83,03,93,93,93,93,93,63,83,03,93,93, 93,93, 82, 2C 
1749 DATA 99,90,00,00, 00,00, 00,00,00,00,06,00,00,98,00,9 
1759 DATA 69,09, 00,00,06,00,09,09,09,00,08,00,00,09,89,8 
1769 DATA 09,09,00,00,00,00,00,00,06,09,06,00,00,090,68,9 
1770 DATA 89,08,00,00,00,00,96,00,06,09,00,08,69,09,09,8 
1789 DATA 09,99,00,09, 00,00, 00,09,00,00,09,00,08,08,00,9 
1799 DATA 89,09,090,00,00,00,68,08,88,89,F3,21,89,C9,54, 228 
1899 DATA 5D,13,81,FF,3F,75,ED,B9,21,31,62,CD,25,61,91,5C9 
1818 DATA 81,7F,ED, 49,3E, 55, ED, 79, $C, ED, 49,3E,5F, ED, 79,6F4 
1829 DATA AC, ED, 49,3E, 4B, ED, 79,11,41,62,21,68,E4, 96, 4E,59E 
1838 DATA 8E,14,C5,E5, {A, 77,23,13,18,FA,E1,CD,37,61,C1,6A4 
1849 DATA 8D,29,F8,91,64,98,C5,96,F5,ED, 78, 1F,38,FB, 11,692 
1859 DATA 67,82, 1B, 7A,B3,28,FB,21,57,61,81,98,7F,7E,FE,5A1 
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1869 DATA 99,CA,77,68,23,ED, 49, ED, 79,CB,E1, ED, 49, ED, 79, 8A8 
1879 DATA BE, 97,0D,29,FD,99,08, 18,E3,21,57,61,11,56,61, 3DD 
1889 DATA 36,54,91,C8, 99, ED, B9, 34, 21,62,FE, 18,29, SA, 3A,527 
1899 DATA 18,61,EE,91,32,18,61,18,1A,FE,91,29,16,3A, 18, 3CC 
1999 DATA 61,EE,91,32,18,61,2A,B6,69,ED, 5B,C9,68,22,C9,697 
1919 DATA 69,ED,53,B6,68,21,ED,B8,22,16,61,DD,21,21,62,68E 
1928 DATA 21,BB,61,11,BC,61,CD,99,61,21,ED,B8,22,16,61,691 
1939 DATA DD,21,29,62,21,BB,61,11,BA,61,CD,49,61,C1,8B,5F5 
1949 DATA 78,B1,28,93,C3,47,69,21,08,C9,11,91,C9,91,90,472 
1959 DATA 49,36,99,ED,BS,21,39,62,CD,25,61,91,81,7F, ED, 59 
1969 DATA 49,3E,57,ED, 79,4C,3E,4E, ED, 49, ED, 79,8E,52,9C,614 
1978 DATA ED, 49, ED, 79, C9, 8E, 94, 98, DD, 7E,91,77,86,98, DD,665 
1989 DATA 4E,98,79,ED,B9,3C, DD, 77,99, DD, 23, DD, 23, 98, 3D,639 
1999 DATA 29,E7,C9,0E, 94,96, BC, 7E, 23, ED, 79,94, 7E, 23, ED, 63D 
2998 DATA 79,895,9D,29,F3,C9, 7C,C6,98,67,E6,38, CB, 7C,D6, 748 
2818 DATA 49,67, 7D,C6,59,6F,D8,24,7C,E6,97,C8, 7C, D6, 88, 729 
2929 DATA 67,C9,ED, 4D, 99,99, 99,09, 4C,4C, 4C,4C, AC, 4C, 4C, 47E 
2838 DATA 4C,4C,4C,4C, 4C, 4C, 4C, 4C, 4C, 4C, 4C, 4C, 4C, 4C, 4C, 474 
2949 DATA 4C,4C, 4C,4E,4E,4E, 4E, 4E, 4E, 4E, 4E, 4E, 4E, 4E, 4E, 48C 
2859 DATA 4E,4E, 4E, 4E,4E,4E, 4E, 4E, 4E, 4E, 4E, 4E, 4E, GA, A, ABA 
269 DATA 4A, GA, 4A, GA, 4A, GA, BA, AA, 4A, 4A, A, 4A, A, 4A, 4A, 456 
2870 DATA 4A, 4A, 4A, A, 4A, 4A, 4A, 4A, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 45D 
2989 DATA 4B,4B,4B,4B, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 4B, 465 
2898 DATA 4B,4B,4B,4B,57,57,57,57,57,57,57,57,57,57,57, 4E9 
2199 DATA 57,57,57,57,57,57,57,57,57,57,57,57,57,55,55,515 
2119 DATA 55,55,55,55,55,55,55,55,55,55,56,55,55,55,55, 4FB 
2128 DATA 55,55,55,55,55,55,55,55,44, 44,44, 44,44, 44, 44, 484 
2138 DATA 44,44,44,44,44, 44,44,44,44, 44,44, 44, 44, 44, 64, 3FC 
2149 DATA 44,44,44,54,54,54,54,54, 54,54, 54, 54,54,54,54, 4BC 
2158 DATA 54,54,54,54,54,54,54,54,54,54,54, 54,54, 54, 59, 198 
2168 DATA 92,53, 92,57, 82,55, 82, 44,82, 44, 92, 4E, 82, 4C,B2, 237 
2179 DATA 5C,91,28,92,2E,07,22,96,28,91,29,82,2A,87,22,17A 
2189 DATA 86,28,98,E1,87,C3,9F,CC, 78,3C, 2F, 7F, 88, 99,98, 59E 
2199 DATA 99,89, 79,B4,1E,9F,88,E1,69,4F,FF,98,99,09, 09,591 
2289 DATA 79,D2,97,C3,EE,38,F9, 78,1F,C3,DC,B4,2E, 19,E5, 8B7 
2218 DATA 6E, F9, 69, 3D,3F, 98, 98,08,08,08,F8,B4,3E,3F, 19,474 
2228 DATA Ei,C3,6B,6E,F8,69, 7C,CF,CC, 19, D2,1E,97,3F,B8, 87B 
2239 DATA F9, 76,1F,C3,CC, 19, 88, 09,08,98,44,C9, 98,99, 89, 4AA 
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2248 DATA CC, 08,96,08,96,49,06,89, 96,98, 68,99, 98, 11,68, 2BD 
2258 DATA 89,99,08, 49,98, 69,08, 33, 28,88, 68,98,89,54,89,E7 

2268 DATA 33,38, 86,02, 89,98, 60, 11,68, 00,05,08, 15, 88,58, 186 
2278 DATA 66,11, 16, 99,98, 98, 22,68,98,08,96,46, 39,99, 89,141 
2288 DATA 68,88, A6,00,90, 08,60, 44,18,38,F8,F9,F5, 94,99, 499 
2298 DATA F#,F9,E6, 64,98, 00,08,08,58,F8,F0,E8, 18, 39,F8,79C 
2389 DATA F9,C9,88,08,89,90,58,F9,F6,F8,91,29,F,F8,F8,859 
2318 DATA F#,14,78,81,68, 78,82,B89,F8,F8,C1,98, 59,89, 89,649 
2329 DATA 38,38,F8,F8,C9,18, 78,F8,F0,62,B8,F9,FO,F,92,96C 
2338 DATA 29,78,F8,F8,ES,28,F8,F8,F8,F8,04, 38, 25, A5, A5, 8DB 
2348 DATA A5,14,A1, A5, A5, A5, 26,89, 89,08, 88,41, A5, A5, A4, 59E 
2358 DATA 36,52, 5A, 5A, 4A, 4C, 98, 08,98, 41, A5, A5, A5, 85, 26, 4B1 
2368 DATA A5,A5,A5,A5,58,25,84,C9, A5, AB, 92, 5A, 5A, 49, 98, 721 
2378 DATA 98, 80,08, 28, 25, A5, A5, A4, 1C, 25, A5, A5, 82, A1, A5, 586 
2389 DATA A5,A5, 83,68, SA, SA, SA, 4A, 28, A5, A5, A5, A5, 48, 28, 6A1 
2398 DATA 52,5A,5A,5A,58, 12,5A,5A,5A, 92,08, 88, 68, 89, 49,312 
2488 DATA 98,09,09, A9, 25, A5, A5, A4, 94,08, 08, 08,50, 5A, SA, 3BB 
2418 DATA 54,48, 28, 98,99,98,08, 14,52, 4A, 19,5A, BA, 86, 89, 26E 
2428 DATA 69,19,98,00, 60,09, 29,5A, 5A, 5A, 4h, 14, 69,08, 88, 19C 
2438 DATA 29,88, 98, 09,52, 09, 48, A5, A5, A5, A4, AG, 88, 88, 89, AGE 
2448 DATA 98,84,28,0F,08,09, 99, 14,97,0F,8F,0F,0A,08,88,8D 

2458 DATA 99,88,78,F0,F8,F8,AB,8F,8F,8F,8F,04, 88, 90,89, 429 
2468 DATA 41,8F,8F,0F,8E,38,F8,F9,F8,F8,D8,07,8F,93,8F,56C 
2479 DATA 8A,FS,F6,F8,F6,986,68,99,98,28,8F,0F,8F,8F,59,476 
2488 DATA F8,F8,F8,E9,F8,F6,F9,63, 8D, 41,9F,98, 98,98, 38, 798 
2498 DATA F8,F#,F8,F8,CB,28,8F,78,F8,F8,D8,97,8C,88,8F,7F1 
2588 DATA 8A,89,08,00, 86,09, 98,09,89,29,6F,98,81,9F,94,55 

2518 DATA 99,99,96,41,8E, 98, 91,8E, 88,58, 08,99,80,19,83,F1 

2528 DATA 8F,8F,6F,20,88,09, 80,09, 60,08, 00,06,20,07,9F,83 

2538 DATA 699, 8F, 49,98, 98,98,80,68,08,98,83,1C,41,8E,F9,22D 
2548 DATA FS,F8,89,08, 69,06, 86,09, 26, AF, 49,09, 08, 19,27, 3A6 
2558 DATA B8,FS,27, A8, 98,88, 98,09,78,2D,6E,99,28,5F, 79,471 
2568 DATA Ef,5F,49,09,69,80,41,AE,F8,C1, AE, B8, D2,C3,BC, 7CE 
2578 DATA 2F,DC,81,AF,AF, AE, 68,E1,4B,CC, 98,08, 89,99, 89,5F8 
2588 DATA 19,23,AF,88,AF,14,C3,97,88,89,C3,87, 98, A3,9C, 698 
2598 DATA 51,4E, 89, 99,88, 38,D2,C3,BC,2F,CC,28,5F,59, D2,63C 
2688 DATA 97,DC,57,28, 19,57, 28,98, 00,89, 09, 49,06, 22,99, 2E3 
2618 DATA 29, AF,49,29,AF,48,08,98,88,51,4E,98,51,4E, 28, 38C 
2628 DATA 96,98,89,00,44,C8,5F,5F, 4C,C9, 89,09, 44,99, 08, 392 
2638 DATA 99,88,99,08,91,5F,4C, 08,58, 88,08, 88,8, 89, 11,245 
2648 DATA 99,93, 4D,41,AE,B9,B4,3F, 6,08, 09,99, 08, 44,28, 47E 
2658 DATA FF,59,98,09,54,77,A8,18,77,8A,98,98,89,86,51,424 
2669 DATA FF,8A,98,29,FF,49,29,FF,84,09,08,00,51,EE, 8,552 
2678 DATA 51,EE, A8,FF,FF,FF,FF,94,68,77,FF,98,88,B3,FF, AB7 
2688 DATA 84,08,09,98, 80,96, 90,49,FF,EE, 79,D9, 77,EE, 98, 4DE 
2699 DATA 99,B3, DD,9E, 3B,CD,51,EE, A8,98,98,A8,FF,FF,FF, GBA 
2789 DATA FF,84,28,FF,59,77,FF, 14, 77,8, 18,77, 8À,98,08,68E 
2718 DATA 99,88,51,FF,A8,68,28,FF,84,28,FF,94, 68, 90, 89, A3E 
2728 DATA 51,FE,88,51,EE,28,FF,FF,FF,FF, 48,69, 77,FF,98, 9D8 
2730 DATA 98,B3,FF, 49, 98,08, 08,08,99,03,68,77,FF, 29,19, 49B 
2748 DATA 77,EE, 88,68, B3,CC, 88, 77,CD,51,EE, AB, FF, EE, 28, 89C 
2758 DATA FF,FF,FF,FF,48,28,AF,58,27,AF, 14,27, 8A, 19,27, 72D 
2769 DATA 8A,00, 90,08, 80,41,AF, A8, 88, 28,5F,94,28,5F, 04, 328 
2778 DATA 99,09,08, 41, AE, 68, 41, AE, 28, AF,8C, 98, 89, 49, CO, 4C9 
2788 DATA AF,AF,6C,9C,93,5F, 49,89, 89,08, 80,98, 02, 89,23, 34D 
2799 DATA AF,98, 18,27, AE, 68,98, A3, AF,AF,AF,QC, 51, 4E, AO, 737 
2889 DATA 5F,4E,28,AF,6C, 99, 89, 49,28,5F, 79,11,5F,58,57,456 
2818 DATA 2B,5A,57,28, 98,98, 08,08,51,5F,29, A6, 28, AF, 47, 399 
2828 DATA A4,AF,48,98,89,08,51,4E, 88,51, 4E, AB,5F,5C,FA, 59C 
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2838 DATA F9,94,91,5F,5F, 4E, 26,3, AF, 52, 4C, 88,98, 88, 89,537 
2848 DATA 28,5F,11,5F, 4C, 18, 57,4E, A5,88,93,5F,5F,5F,5C, 531 
2858 DATA 41, AE, E8, 23,4E, A,5F,5C,F8,F8,84, 29, 9F, 88, 81,697 
2668 DATA 8F,58,87,0C,89,0F, 28,98, 08,99, 09,41,0F, 98, 22, 123 
2878 DATA 29,6F,98,81,8F,48,99,98,08,41,9E, 86, 41,BE, A9, 1CD 
2888 DATA 9F,1C, 96,96, 19,93, 8F,0F,9F, 22, 83,0F, 08, 44,09, 163 
2808 DATA 86,99,99, 28,0F,08,9F,0E,54,97,0E, 09,88, 83,8F, 1CF 
2988 DATA 9F,9F,1C,41,8F,09,93,0E, A,0F, 1C,99, 98,99, 28, 186 
2918 DATA 8F,0F,0F,0F, 14,97,0F,9F,8F,9A,90,08, 80,09, 41,CF 

2928 DATA #F,9F, 8A,28,8F,0F,8F,0F, 84,08,00,96,41,9E, 88, 15F 
2938 DATA 41,86, 28,0F, 1C,E1,4F,DC,#7,6F,93,0F, BA, 83, BF, 372 
2949 DATA #F,54,09,89,99,06,82,0F,0F,0F,0F, 14,97,0F, DE, 89 

2958 DATA 98,83,8C, 09,93, 00, 41,0F,8F, 0F,8E, 28,8F, 1C,E1, 257 
2968 DATA 4F, CC, 28,52, 54, 54, 44, 14, 12,54, 5A,5A, 28,98, 68, 3DF 
2978 DATA 89,66, 48,5A,5A, OA, 28,25, A5, A5, A4, 46,88, 88, 8,371 
2988 DATA 58, 44, 88,58, 44, 28, 5A,48, 85,08, 54,52, 4A, 18, 5A, 368 
2908 DATA 28,81,45,45, 84, 68,88,08,09,28,52,5A, 54,54, 14, 38B 
3899 DATA 12,54, 4A,88, 92, 49, FD, 92,58, 48, A5, A5, A5, 84, 28, 64E 
3818 DATA 5A,48,89,08, 44, 38,25, A5,A5, A4, 14, A1, A5, A5, A5, 5CD 
3928 DATA 68,69, 99,90, 80,69, A5, A5, A, 38, 52, 5A, SA, 4A, CB, EA 
3838 DATA 99,99,89,41,A4,88,41, A4, AB, A5, A5, A5, A5, 14, 25,587 
3948 DATA 84,C8,A5, A9,D8, 54, 54, 49, 06,08, 86,98, 36,25, A5, 547 
3858 DATA 45, 44,58, 1,45, 4,68, A1,85, 08, A1,94, 68, 5A, 54, 772 
3868 DATA 5A, 48,28, A5, 45,45, 45,94, 16,38,FD,F4,CB, CB,98, 792 
3878 DATA F6, F8,E6, 49,08,08, 09,68, 28, 79,F8, A6, 19,30, F6,658 
3888 DATA F8,C9,86,09, 8,99, 58,E6, 66,58, EP, A8, FO, FB,F, 889 
3898 DATA F8,58, 79,98, ES, 78,62, 48,F8, F8, 49,08, 89,98, 89,672 
3198 DATA 19,38,F8,F8,C8,C9,98,F9, EG, 89,B6,C1,98, B9,D8, 971 
3118 DATA 29, 78,F8,F8,99, A8,F8,F8,F8, FA, 49, 18,69, 90, 89,639 
3128 DATA 19,08,C8,00, 68,69, C9,89,08,06,08, 38,08, 96,02, 1CA 
3138 DATA 19,89,06, 00, 18,68,95,00,98, 48,99, 26, 49,80, AG, 248 
3149 DATA 99,89,69,40, 14,80, 39, 39,99, 92,66,09,08,04,08,DA 

3158 DATA 99,99,06,19,88,60,98, 19,68, C9,99,88, 6, 80, 19,278 
3168 DATA 99,69, 18,39, 99,09, 09, 21, 29,09, 00,06,00, 04,08, 195 
3178 DATA F6, F#,F8,F9,08,79,F8,FO,F8,80,99,08,9, 40,19, 799 
3188 DATA F8,F9,E6,49,F8,F9,F9,F9,08,00,06, 00, 78,FO,68, 869 
3198 DATA 79,F9,B6,FO,F8,F8,F8,D6,F8,EB, 19,F0,E8, 30, F8,878 
3298 DATA F8,C9,98,80,98,09,08,F9,F8,F8,F6, 08, 78,F8,F8, 7C9 
3218 DATA 89,F#,E1,69,F8,F8, 18,F8,F8,F8,E0,39,FO,F8,FO, F1 
3228 DATA F8,B1,C2, A7, C4, 8D, C6, B7, C2,B8,C4,8F, C6, 29, C2, A56 
3238 DATA A7,C4,8B, C6,B1, C2,9F, C4, 8, C6, 31, C2, 85, C3, 8D, 81D 
3248 DATA C5,2F,C2,35,C5, 8D, C6, 37, C2, 29, C5, 8D, C6, A9, C2, 828 
3258 DATA 33,C3,95,C2,85, C2,31,C5,95, C6, 31, C2, 1F, C4, BD, 6B8 
3269 DATA C6, A9, C2, 17,C5,8C, C2, 89, 98,08, 95,08, 08, D, C1, 4A9 
3278 DATA 38,93,36,48,C1, 49, C1, 49, C9, 49, D1, 48, E1, 49, F1,6DF 
3289 DATA 89,C9,88,E1,C9,C1, CB, E1, 98, CA, 88, F2, 48, DA, BA, 922 
3299 DATA D2,C#,C2, CB, FA, 98, FE, 49,FB,88,FB,98,C4, 49, CC, 98F 
3388 DATA 88,D4,C8,E4, 89, FD, 88, CD, CB, ES, 98, FE, 88, DE, CA, A93 
3318 DATA FE, 49,DF,89,FF,68,E7,49,F7,49,C7,98,D7, C9, EE, 9C6 
3328 DATA 68,FE,89,D6,49,E6,99,FE, 88, DE, CB, F5, CB, CD, 88, 998 
3338 DATA ED,68,CD, 49,ED, 48,D5,88,F5, 98, D0,88, C5, C8, EC, BBF 
3348 DATA C#,DC, C8, CC, 88, FC, 88, EC, 88, DC, 88,D4, 88, CC, 88, ABC 
3359 DATA C4,86,C4,89,C4,FF, 68,58, 28, A8,8C, 92, 82,99, 89, 57B 
3368 DATA 98,28, A8, 88, 92,92, 89,09, F6, 28, FC,08, 82,03, 88, 2FD 
3378 DATA 69, 09,28, 09,08, 92, 68,68, 68,F8, 28, A6, 88, 82, 83, 1FF 
3389 DATA 88,89, A6, 28, 89,09, 92,02, 89,09,FS, 28, AB, 98, 92, 296 
3399 DATA 83,96, 08,08, 28, A8,98,02,08,08,08,F9, 28, FC, #6, 2F9 
3499 DATA 92,93,98,09, 49,89, 90,08, 06,92, 08,08, FO, 28, FC, 2BB 
3418 DATA 96, 82,02, 09,98, A8, 68,08,08,08,80,98,89,F0, 28, 1C4 








3428 DATA A6,68, 92,93, 09,00, AG, 00, 00,06, 02,02, 00,08, A, 281 
3439 DATA 28, FC, 98, 92,92, 00,08, AD, 28, AB,8, 92, 92, 80, 09, 2AC 
3449 DATA F8,14,54,94,01,03, 09,90, 46,09, 00,09, 9,02, 08, 292 
3458 DATA 89,09,00, 08,08, 02,93, 08,08, A8, 28, AB, 8B, 92, 82, 189 
3469 DATA 99,69, A9, 28, FC, 08, 92, 02, 96,08, AD, 28, 00, 08, 02, 242 
347 DATA 82,09,08, A9, 28, A6, 98, 02,93, 69,00,09, 89,40, 60,17F 
3484 DATA 99, 82,09,00, A9, 3C, AB, 08, 92,02, 09,09, AB, 28, AB, 362 
3499 DATA 98,02, 92,00, 08,F8, 28, A8,06, 02, 02,08, 80, A9, 28, 240 
3548 DATA 46,68, 92,02, 06,09, F9, 28, A8, 08, 02,03, 96,08, A8, 321 
3518 DATA 28, 48, 98, 92, 82, 00,08, F9, 28, A6, AC, 92, 82, 89, 99, 2AC 
3529 DATA A8, 288,98, 09,09, 08,00, F9, 28, AB, 08, 03, 03,08, 346 
3534 DATA 89, 49, 28, A8, 08, 82,02, 04,08, FO, 28, AB, BC, 82, 02, 356 
3548 DATA 99,80, A8, 28, A6, 00,92, 82, 09,06,FB, 28,FC, 99, 08, 386 
3554 DATA 93, 00,08, 40,08, 48,98, 92,02,0,09,F0, 14,54, 04, 2B3 
3568 DATA 91,81,09,00,A0,00,00,00,09,09,06, 00, AB, 28, AB, 212 
3578 DATA 86,02, 03, 00,08, A9, 28, 6,08, 92,02,68, 09, A9, 28, 251 
3584 DATA A6,98,91,91, 09,00, A9, 28, 8,98, 06,09,99, 00, AB, 2CA 
3598 DATA 28, A8, 98,03, 92, 08,96, AB, 28, AB, 6,82, 82, 88, 89, 259 
3608 DATA A8, 28, 54,84, 92,02, 09,99, AG, 28, 68,00, 02, 92,68, 1F8 
3618 DATA 89, A9, 28, A8,04,81,01,00,08, A9, 28, AB, 98, 89, 99, 2E6 
3628 DATA 08,69,F8,80,54,04, 02,93, 09,06, AB, 28,08, 99,08, 215 
3638 DATA 82, 09,08,00,3C, 00,0, 02,03, 09, 98,08, 26, AB, 88, 127 
3648 DATA 92,82, 09,09, A, 28, FC, 08, 92,93, 06,00, 06, 0P, A8, 27D 
3659 DATA 86,92, 02,00,08,09,3C, A6, 08, 22,93, 8,99, 99, 28,125 
3668 DATA 08,89,09,02,09,80,06,09,FC, 96, 02,03, 08, 09, AB, 1AB 
3678 DATA 28, 48,98, 92,02, 08,08,98,3C, AB, 8C, 82,83, 88,98, 1D1 
3688 DATA 99, 28, 68,98, 99,92, 69,09, 50, 28, FC, 98, 02, 02, 08, 25A 
3699 DATA 89, 49,08, 00,08, 00,08,09,08,99,3C, 6,06, 83,99, 18F 
3798 DATA 9F,69,68, 28, A8,08, 02, 82, 8A, 06, A9, 28, FC, 98, 62, 2C3 
3714 DATA 82, 99,08, 00,06, A8,08,92,02,99,08,50,88,54, 84, 15E 
3728 DATA 91,91,69,00,09,00,09,00,00,09,09,09,08,09, 08, 2 

3738 DATA 99, 09,02,0F,08, A9, 68, 6,08, 02, 92, BA, 89, AG, 28, 237 
3749 DATA AB, 8C, 92, 92, 99,08, 99,00, A8,06, 02,02, 06, 99,58, 1Bà 
3758 DATA 14,54,04,01,08,09,08,09,08,09,08,88,92,80,99,6F 

3768 DATA 69,28,FC, 88, 82,02, 96,06, 99, 28, AB,98, 02, 92,06, 28C 
3778 DATA 89,09, 3C, A6, 98, 82,92,09,08,99,98, AB, 98, 82, 82, 144 





52Z 


3788 DATA 99,99,88,3C, 8,08, 02,93, 89,09, 08,28, AB, 98, 82, 1CB 
3799 DATA 92,09,96,08,3C, A8, 08, 93,92, 8A, 68,98, 28, AB, 88, 1D5 
3809 DATA 92,09,88,00,09,3C, AB, 08, 03,09, 08,89, 68, 28, AB, 1C1 
3819 DATA 86,92,02,0F, 09, 69, 14, A6, 08, 82, 82,00, 00, 90, 26, 19B 
3829 DATA 99,09,08,00,00,00,00,3C, A8, 0C,00,03,00,08,09,F3 
3839 DATA 28,09,98,02,92,00,08,58,3C,54,64,81,81, 09,89, 11A 
3849 DATA 08,28,08,00,80,02, 66,00, 09, 28, 8,08, 92,93, 00,187 
3859 DATA 89,09,28, AB,98, 02, 02,09,98,08, 28, AB,98, 92, 81, 1B7 
3869 DATA 00,00,80,28, A6,06, 02,09, 06,09, 0, 28, AB, 98,93, 1B5 
3878 DATA 92,09,00,09, 28, A6,08,02,02,08,88,00,28, AB, 04, 1B2 
3889 DATA 92,92,89,00,90,28,A8,00,02,02,00,08,08, 28, AB, 1AB 
3898 DATA 98,03,08,0F,48, 08,28, A8,98, 92,02, 0A, 09,88, 3C, 13C 
3999 DATA 88,04,82,03,00,00, 99, 28,A8,09,60,02,00,08,99,DB 
3918 DATA 89,00,06,00,09,05,06,08,08,08,08,02,82,60,90,9 
3929 DATA 99,00,06,00,01,01,09,09,09,00,06,08,06,09,0D, 2 
3939 DATA 89,99,14,00,09,01,08,09,08,08,08,08,89,90, 00,15 
3949 DATA 69,89,58,14,54,04, 09,01, 09,09,08,00,00,00,08,BD 
3959 DATA 89,09,09,F6,28,00,04,00,01,08,08, A8, 28, AB, 99, 28D 
3969 DATA 99,09,98,09,CF, A2, 26, 89, 82,F4, 99,90, 8A, A2, 28, 4CF 
3978 DATA 89,62, A9,06,08,45,F3,18,49,41,F8,08,89, 90,80, 45B 
3989 DATA 99,08,09,A9,09,08,CF, A2,99,C9,82,F8, 69,98, BA, 4CD 
3999 DATA 42,29, 89,09, 48,08, 98,CF, A2, 19,08,82,F8,88,09, 4D5 
4900 DATA GA, A2,28,88, 82, A9, 69,09, BA, A2, 29,C8,60,00,00, 4FA 
4918 DATA 89,09, A2, 29,88, 82, Aÿ,09,08,CF, A2,38,89,82,F0,577 
4920 DATA 89,88,8A,00, 29,89, 82, A, 09,08, CF, A2, 39, 89,82, 4EF 
4939 DATA F9,89,09,BA,09,29,88,62,A8,08,08,CF,80,09, 49, 44B 
4949 DATA 41,59,09,09,8A, A2, 20,09, 09,99, 00,08, CF, A2, 38, 37E 
4959 DATA 89,82,F6, 96,99, BA, A2, 29,68,62,A9,88,88,CF,A2,651 
4968 DATA 29,C4,09,F9,80,09, BA, A2, 26,89, 82, AG, 98,34, 11,583 
4978 DATA 89,00,00,00,00,00,06,00,08,00,00,08,60,00,90,0 
4589 DATA 99,09,08,00,00,00,00,00,09,09,08,08,00,00,06,0 
4999 DATA 89,90,09,09, 00,00, 00,09,08,06,69,00,90,00, 90,9 
4180 DATA 69,99,00,09,00,60, 00,00, 3F,3F,3F,3F, 3F, 3F,3F, 1B9 
4119 DATA 2A,09,3F,3F,3F, 09,08, 09, 09,00, 99,3F,3F,88,80,165 
4126 DATA 98,09,3F,3F,00,3F, 3F,3F, 9F,3F,3F,3F,2A,08,3F, 249 
4139 DATA 3F,3F,3F,3F,3F,3F, 2A, 09, 3F,3F, 09,88, 80, 00, 3F, 261 
4149 DATA 3F,35,35,35,35,35, 35,35, 35,99, 35,35, 35, 99, 88, 286 
458 DATA 99,06,00,08,35,35,98,08,09, 09,35, 35,99, 35,35, 13E 
4169 DATA 35,35,35,35,35,35, 96,35, 35,35, 35,35, 35, 35, 35, 2E6 
4179 DATA 99,35,35,00,08,09,08,35,35, 39, 39, 38, 38, 38, 38, 1F4 
4189 DATA 39,39,09,39, 39,38, 00,00, 60,00,99,90,30,38,00, 158 
H199 DATA 89,09,00,39, 36, 09,38, 39,38, 39, 39, 38, 38, 38,80, 1E0 
4269 DATA 39,39,39,38, 39,39, 36,30, 69,39, 39,00,00,99,00, ES 
4219 DATA 39,39,98,96,98,98,98,98,99,98, 98,98,99, 98, 89,698 
4229 DATA 99,08,00,00,00,99,96,09, 09,09,00,98,98,89,96, 2D8 
4238 DATA 99,99,99,99,98, 98,98, 89,98,98,98,98, 99,96, 98, 7Eÿ 
4249 DATA 99,99,99,99, 89,99, 09,09,96,98, C2, C2, 82, 08, BB, 4D6 
4258 DATA 49,C2,C2,89,C2,C2,C2,98,08,09, 98,88, 86, C2,C2,58E 
4268 DATA 69,99,88,09,C2,C2,86,C2,C2,08, 98,88, 8B,C2,C2, 48C 
4276 DATA 69,C2,C2,98,98,08,68,C2,C2,88,C2,C2, 88,89, 89, 48C 
4288 DATA #9,C2,C2,C3,C3,98, 89, 9,88,C3,C3,88,C3,C3,C3,6D9 
4299 DATA 09,09,06,08,08,08,C3,C3,88,89,99,88,C3,C3, 89, 38C 
4388 DATA C3,C3,89,80,89,99,C3,C3,85,C3,C3,98, 08,98, 6B, 492 
4318 DATA C3,C3,98,C3,C3,08,89,09,88,C3,C3,E1,E1, 99, 89,654 
4328 DATA 99,89,E1,E1,89,E1,E1,E1, 88,09, 99,08,05,98,E1,546 
4339 DATA E1,89,09,88,09,E1,E1,08,E1,E1,99,E1,E1,88,E1, 798 
4349 DATA E1,99,E1,E1, 99,98, 96,09,E1,E1, 09, E1,E1,E1,E1, 7E9 
4359 DATA Ef,E1,E1,E1,F8,F8,A6,99,88,58,F8,F9,80,F0,F8,A14 
4369 DATA FS,99,006,99,99,00,06,F0,F6,09,08,08,06,F8,FB,4B9 


4379 DATA 98,F8,F9,09,F8,F9,08,F8,F8,08,F9,F8,88,98, 89,789 
4389 DATA 98,F8,F6,09,F8,F4,F0,F9,F8,F8,F8,F8,0F,9F,9F, 98D 
4398 DATA 8F,0F,0F,0F,9F, 98, 8F,0F,0F, 00,98, 98, 89,98, 96,78 
4488 DATA 6F,8F,98,00,00,00,0F,8F,00,0F,9F,96,9F,9F,98, 78 
4419 DATA 8F,0F,99,9F,0F,8F,8F,0F,9F,0F,0F,98,8F,8F,9F,C3 
4429 DATA 9F,8F,9F,0F,0F,97,97,97,97,07,07,97,97,98,97,8A 
4439 DATA 97,67,09, 09,09, 08,09,99,97,07,00,08,89,88,87,23 
4449 DATA 97,09,97,07,00,07,87,99,97,97,00,07,97,97,07,4D 
4459 DATA 97,87,97,07,09,8F,07,97,97,07,07,87,87,83,83,62 
4468 DATA 93,63,93,03, 93,03, 00,03, 03, 93, 00,00,00,98,00, 1B 
4478 DATA 89,03,83, 06,08, 68, 66,03, 03, 68,93, 93, 56,83, 83,18 
4489 DATA 09,093,93,69,03,03, 93,93, 03,93, 83,93, 08,91,03, 22 
4499 DATA 83,83, 93, 03,93, 92, 89,09, 69, 69, 89, 99, 89, 98, 89,58 
4589 DATA 99,99, 99,60, 06,09, 06, 09,99, 99, 99,08, 060, 69,69,2D 
4518 DATA 89,99, 96,99, 99, 69,99, 99, 99,89, 89,98, 89, 89, 89,63 
4529 DATA 99,99, 99, 99,98, 00,06, 06, 00,09, 09,08,00,99,0C, 38 
4538 DATA 9C, 09, 069,09,99,08,99,99,0C,8C, 80, 9C, 8C, 8C, 8C,68 
4549 DATA 8C,89,0C,9C,6C, CC, 4C, 8C, C, 99,00, 8C, 98, 90,98 
4558 DATA 8C, 89, 8C,6C, 98, 0C, 0C, 06, 68, 68,09, 08,96,89,89,3C 
4569 DATA 09,89,0C,0C, 69,08, 80, AC, AC, 98, 00,98, 98,90,08,179 
4578 DATA 89, AC, AC, AC, AC, AC, AC, AC, AC, BB, AC, AC, AC, AC, AC, BBC 
4589 DATA AC, AC, AC, 98, AC, AC, 89, AC, AC, 99, AC, AC, 88, AC, AC, 764 
4598 DATA 89,09, 69,00,05,00,98,08,00,98, AC, AC, 99,80, 89,158 
4699 DATA FC,FC,89,90,06,09,09,09,98,FC,FC,FC,FC, FC, FC, 7E8 
4618 DATA FC,FC,98,FC,FC,FC,FC,FC,FC,FC,FC,98,FC, FC, 89, RDA 
4629 DATA FC,FC,98,FC,FC,98,FC,FC, 96,99, 00,08, 08,99, 08,5E8 
4639 DATA 89,09,00,FC,FC,99,98,88,7C, 7C,08,98,88,89,89,2F8 
4649 DATA 89,88, 7C,7C,7C,7C, 7C, 7C, 7C, 7C, 98,54, 7C, 7C, 7C,5AB 
4659 DATA 7C,7C, 7C, 70,98, 7C, 7C, 98,70, 7C,88,7C,7C, 88, 7C,554 
4669 DATA 7C,99,90,00,90,09,06,99,06,09, 08, 7C, 7C,98,99,174 
4679 DATA 89,83,11,45,CF,88,98,CF,CF,8A,88,4F,8F,CF, 99, 4FD 
4688 DATA 97,8B,4F,89,E5,DA,CF,99,6F,9F,8F,99,CF,CF,8A, 734 
4698 DATA 89,69,09, BA, 95, 45,CF,CD,88,51,CE,67,88,E3,E6, 5BA 
4788 DATA 67,88,D3,B3,67,99,E1,B3,CF,99,F8, D3,68F,49,E1, 7EA 
4719 DATA D3,8F,8A,93,D3,67, 9A, 11,D9,66,8F,93,11,45,CF,G4A 
4729 DATA 09,89,CF,CF, 8A,08,4F,6F,CF,08,97,8B,4F,99,E5,59B 
4738 DATA DA,CF,98,6F,9F,6F,98,CF,CF,8A, 88,98, 88, 8A,8989,5F8 
4749 DATA 45,CF,CD,99,51,CF,66,99,E3,E7,66,98, D3,E7, 33, 784 
4758 DATA 89,E1,E7,9B,98,F8,D3,6F,98,E1, D3, 8F, 95, 93, D3, 863 
4768 DATA 67,4F,99,C6,67,8A,83, 11,88,98,CF,8A, 98, 45,CF,587 
4778 DATA CF,89,CF,4F,6F,90,8F,47,9B,88,CF,E5, DA, 98, 4F,63A 
4789 DATA 6F,9F,89,45,CF,CF, 89,45, 68,98, 99,CE, CF, 8A, 98, 55D 
4798 DATA 99,CF, A2, 88,99, DB, D3, 88, 33,DB,E3, 89,67, DB, D2, 856 
4898 DATA 88,4F,E3,F4, 6A,4F,E3,D2, 8F,9B,E3,63,45,9B, C9, 849 
4818 DATA 66,93, 11,89,98,CF,8A,98,45,CF,CF,88,CF,4F,8F,563 
4829 DATA 89,6F,47,9B,69,CF,E5,DA, 89, 4F,6F,9F,98,45,CF,5E8 
4838 DATA CF, 99, 45,09, 98,98, CE,CF, 6A, 88,9B, CD, A2, 88, 9B,5E8 
4849 DATA D9,D3, 88,98, 73,E3, 49, CF, 73,D2, 89, 4F,E3,F8,95, 7D8 
4858 DATA 4F,E3,D2,85,9B,E3,63,4F,99,E6,22,84,11,99,8F,5FE 
4669 DATA 9A,89,88,05,0F,0F,09, 08, 19,0F,25,0A, 98, 49,25,ES 
4878 DATA 99,9A,08,58,8F,A5,9A,98,15,8F,2F,0A,89,85,8F,219 
4888 DATA 8F,68,96,09,00,85,86,00,08,0F, 4B,9A,09,98,07,7F 
4899 DATA C3,0A,89,91,89,C2,8A,88,04,93,C5, BA, 56, 14, AC, 334 
4998 DATA 85,8A,98,14,AC,97,8A, 88, 14,0C,87,0F,98,94,84,21E 
4919 DATA 42,6F,98,89,C1,42,87,9A,94,11,88,8F, BA, 89, 98,213 
4929 DATA 95,8F,8F,99,89,19,8F,25, 8A,96, 45,25,98, 8A, 69, 179 
4938 DATA 59,8F, AS, 8A, 88, 15,8F,2F,8A,08,85,8F,0F, 09, 86, 18E 
4948 DATA 69,88,95,08,89,06,9F, 4B, 8A,00, 09,07, 4B, 82,68, 13D 
4959 DATA 81,99, 4A,82,68,04, 93, 4A,88,88,14,AC, BF, 88,89, 2F6 
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4969 DATA 14,AC,97,8A,99,14,8C, 97, 9A, OA, 94,64, 42,9F, OA, 1EF 
4979 DATA 41,84,C2,9F,08,84,11,99,98,05,0F,08,89,99,0F,1CE 
4989 DATA 8F,8A,89,95, 1A,8F, 29,90,05,69, 1A,89,98,95,5A, 1C5 
4999 DATA 9F,A9,99,05,1F,9F,2A,08,68,0F,0F, OA, 09,89, BA, 13E 
5989 DATA 09,88,49,05,87,0F, 00,09, 41,87,0B,09,9B, 41,85, 234 
5919 DATA 86,62, 98, 49,85,93,98,08,48,0F,5C,28, 96,85, BB, 1BB 
5929 DATA 5C,28,85,95,8B,8C, 28,95, 9F,81,48,08,98,9F,C1, 282 
5839 DATA 46,82,94,11,98,09,05,6F,08,08,88,0F,0F,8A,88,11B 
5949 DATA 85, 1A,0F,28,80,05,69, 14,85, 09,95,5A,9F, A6, 80, 25B 
5859 DATA 85,1F,9F,2A, 99,08, 0F,0F,0A, 00,00, 04,06, 89,09,6F 

5969 DATA 95,87,0F,06,80,05,C3,0B, 89,09,05,C1, 06, 92,98, 23C 
5979 DATA 85,C8,93,98,90,95, 4A,5C, 28,98,05,8B,5C, 28,89, 237 
5989 DATA #F,8B,0C,28,89,8F, 81,48, 98,05, 4B,81,C2,98,94,2C5 
5899 DATA 11,09,33,22, 09,08, 11,33,33, 08, 08,95, 33, 1B, 22, 152 
5189 DATA 99,81,1B,97,22,99,59,33,B1,22,99, 15, 33, 3B, 8A, 228 
5118 DATA 89,11,33,33, 99,89, 88,08, 11,99, 98,08, 33, 26, 22,193 
5129 DATA 99,68,99,26, 22,99, 44,C6, 23,98, 98, 41, CC, 33,92, 358 
5139 DATA 89,58,C3,99,92,68,58,E1,99, DA, 89,58, C3, 99, 84,538 
5149 DATA 99,41,43,89, 27,09, 04,46, 99,33, 9A, 04, 11, 88,33, 28C 
5159 DATA 22,89,99,11,33,33,88,08,85,33,1B,22, 98,81, 1B, 12A 
5169 DATA 97,22,88,58,33,B1, 22,98, 15,33, 3B,9A, 98, 11,33,259 
5178 DATA 33,00,09,00,08,11,98,09,68,33,26,22,98,89,99, 158 
5188 DATA #C,22,89,44,C6,99, 22,89, 41,CC, 13,22, 98,58,C3, 3B8 
5199 DATA 13,22,98,59,E1,99, 8A,98,58,C3,99, BA, SA, 41,43, 44D 
5299 DATA 89,27,22,68,86,89, 19,99, 64,11,99,99,11,33,89, 1D3 
5218 DATA 88,68,33,33,22,68,11,27,33,8A, 98, 11, 8B, 27, 92, 142 
5228 DATA 99,11,72,33,A9,89, 85,37, 33,2, 89,08, 33,33, 22,277 
5239 DATA 99,08,22,89,88,88,11,19,33,08,99,11,8C,66, 89, 192 
5249 DATA 99,11,86,C9,88,99, 11,23, CC,82,98, 11, 23,C3, A8, 481 
5258 DATA 89,95,66, D2, A8, 85,95,66,C3, AB, 11, 1B, 46,83, 82,527 
5268 DATA 99,26, 46,99,89,04, 11,09, 99,11,33,99,08,98,33, 181 
5278 DATA 33,22,98,11,27,33,9A, 68, 11,9B,27,92, 88, 11,72, 192 
5289 DATA 33,A9,89,05, 37,33, 2A, 68, 99,33, 33,22, 00,99, 22,216 
5299 DATA 99,88,99,11,19,33,08,08,11,19,66,89,89,94,13,194 
5399 DATA C9,88,89,91,33,CC, 82, 89, 91,66, C3, A8, 08,95,66,588 
5319 DATA D2,4A8,08,85,66,C3, A8,08, 1B, 46,83, 82,85, 33, 86, 4E4 
5328 DATA 89,88,43,12,45,51,51,98, 45,E7,E7,99, 08,47, 47,42E 
5339 DATA A2,68,38,65,92, 18, 38,65, 8,58, 38,B8, DB, 15,38, 4B8 
5349 DATA 3A,8B, 19,39, 29, A2, 89,56, 19,84, 49, 39,64, DB, 68,428 
5359 DATA 99,99, 8B,49,C2,99,65,41,C2,32,65,58,C2,32,CF, 761 
5369 DATA 58,E1,98,8A,59,C3,99,28,41,63,91,38,88,66,91,66A 
5379 DATA 96,98, 8A,89,58,C3,98,28,88,41,63,91, 38,88, 89, 4DA 
5389 DATA 66,91,98,29,83,12,45,51,51,88,45,E7,E7,98,68, 4BE 
5399 DATA 47,47, A2,98,38,65,82,18,38,65,8A,58,38,B9,DB,581 
5488 DATA 15,38, 3A,8B, 19,39, 29, A2, 99,56, 19,6A, 68, 30,64, 38A 
5418 DATA DB, 99,98, 31,89, 49,C2,35,CD, 41,C2,38,67,58,C2,6D5 
5428 DATA 38,67,59,E1,99, 84, 58,C3,98, 28, 41,63,91,38,44,64E 
5439 DATA 62,99, 39,98, 84, 68,58,C3,98, 28, 28,41,63,91, 39, 58D 
5449 DATA 28,44,62,99, 39,99, 83, 12,89,51,51,45,98,45,E7, 3B7 
5459 DATA E7,89,E7,47,92,68,47,38,28,08,CF,38,38,51,9A, 4C8 
5468 DATA BS,79,91,9A, 34,35, 89, A2, 39,38, 08,94, 59,98,51, 467 
5478 DATA CE,38,29,91,99, 38,88, 45,9D, 68, C2,45,32,64,C3,696 
5489 DATA 45,32,68,D2, 89,94, C1,F9,29,38,C1,D2, 38,31,C1,6F9 
5499 DATA 63,19, 31,C8,66, 83, 12,89,51,51,45,88,45,E7,E7, 4E1 
5988 DATA 88,E7,47,92,09,47,39,29,90,CF, 36,38,51,9A,B8, 491 
5519 DATA 78,81,94, 34,35, 98, A2, 38,38, 08,94, 58, 89,51, CE, 485 
5528 DATA 38,28,81,9B,98,88, 45,31, C8,C2, 45,38, 62,C3,45,5E3 
5539 DATA 9A,62,D2,68,9A,C1,F8,68,38,C1,D2,19,31,C1,63, 741 
5549 DATA 38,99,C4,22,85,14, 89,84, 98,06,51,06,08,68,69,2A3 
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